
LA REVUE DES UTILISATEURS DE MICRO-ORDINATEURS ET POCKET-COMPUTERS SHARP 
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INFORMATIQUE 

CONSEIL-SERVICE Location-Leasing 

78, Bd Montebello, 59000 LILLE -Tél. 20936666 

ouvert du lundi au vendredi de 9 à 1 2 h et de 1 4 à 1 8 h 



MUSCLEZ 

vos ma... 

Individuels 8 Bits 

0 . MICRO ORDINATEURS 

Toute la gamme des MZ. 

1 . MONITEURS 

Vert, Ambre, Couleur, H. R. 

2. IMPRIMANTES ,, 

Mt 




7,9,18 
aiguilles, 

graphique, courrier, couleur, laser. 

3 . TABLE TRAÇANTE 

Couleur, 
multiplume... 

4 . DISQUES 

5. DIVERS 

Carte RAM, Graphique 80B - Carte 80 
colonnes MZ 700 - Interfaces 
CENTRONICS - Réseau de micros 
scolaires - Maintenance... 

6 . FOURNITURES 

Rubans, papiers, disquettes... 

Manuels BASIC, CPM, DOS, DBASE... 


!(' 


Sx? 


VOTRE MZ 
S'ENNUIE? 



Multiposte 1 6 Bits 

MZ 5600 


Monoposte 8 Bits 

MZ 700, MZ 800 
MZ 80B, MZ 3541 

7. SYSTEMES D'EXPLOITATION 


MERCURE 
CPM EOS 


MOS Mercure 
DOS MSDOS 
PROLOGUE 


LOGICIELS 

LOTUS, 
MULTILOG... 


8 . 

9 . PROGICIELS 





Comptabilité, P „ 'Jf t " 

paie. / ^ itffjLt lo/ 

Stock-facturation. o ' 

Gestion de production. [) & 



Les solutions 
existent chez 
BECY / 

Consultez-nous... 


Un CHOIX de PRIX, 


COUPON REPONSE à retourner à BECY avec timbre à 2,20 F 


Je désire recevoir la documentation sur |JL Œl E H E 


Je commande le logiciel EXPER 700 ci-joint un chèque de 30 Francs. 
Nom Adresse 


m 


8 


Signature : 


Code Postal I l I i i I ville 
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PC 1500 

NOUVEAUTE EPF 1 500 / PC BLUES 
MYSTERE / JAQUETTE D'OR 


20 BOGUES EN ROM. 
22 ESSAI LOGICIEL . . 


NEW ET SANS NEW 24 LIENS DE VMS ET VH 

GESTION DE CLAVIER (3) 25 

PC 1211 - 

SOLEIL 30 à 35 

PC 1251 

L'EMPIRE CONTRE ATTAQUE 36 à 42 FONCTION AUTO SUR 1251 

PC 1260-61 

LABELS 43 TABLEUR 

PC 1350-1450-2500 ! 

RALLYE POUR 1350 45 à 48 GERER UN MENU 

RS 232 C EN DOUCEUR 48/49 L'AUTOMNE OU 2500 . 

TOUS LES PC 

INITIATION AU LM ERS-H 1 ere partie 51/52 SOUS PRG LM ERS-H 


Les règles en sont très simples mais 
peuvent rapporter gros aux SHARPEN- 
TIERS courageux : 

1. Tout Sharpentier dont l'article, le 
programme ou l'astuce aura été publié 
dans le bulletin SHARPENTIER sera 
d'office inscrit au club, gratuitement, 
pour une nouvelle année. 

2. A la parution de chaque bulletin, 
l'un de ces auteurs se verra offrir l'un 
des plus récents produits SHARP. 
Vainqueur du numéro 14 : Mr. Gilbert 
VINCENT, auteur de trois superbes 
articles sur PC 1 21 1 . Il gagne ainsi un 
PC 1 450. 

Pour le numéro 1 6, il y a un PC 1 100 
à gagner. 

A vos claviers... 







Plutôt que de nouveauté, nous pourrions par- 
ler de révolution avec le PC 7000 car celui-ci 
introduit un nouveau concept de l'ordinateur 
personnel : le portable à écran vertical. 

Le dernier né de la gamme « système » de 
SHARP se présente sous la forme d'une 
malette intégrant l'unité centrale et les 4 péri- 
phériques de base : Clavier, écran, disquettes 
et imprimante. Entièrement compatible IBM PC 
et XT (*), il fonctionne sous le système d'ex- 
ploitations MS. DOS 2.11 (*). 

En version de base, la capacité de sa mémoire 
vive : 384 Ko. suffit amplement pour faire tour- 
ner les plus volumineux logiciels existants. La 
particularité de son écran à cristaux liquides est 
d'être éclairé, de l'arrière, par un panneau élec- 
troluminescent. Cette technique élimine défi- 
nitivement la fatigue visuelle engendrée par les 
classiques moniteurs vidéo. Affichant 25 lignes 
de 80 caractères, il autorise une résolution gra- 
phique de 640 x 200 points. 

Les 2 unités de disquettes 5 pouces 1/4 sont 
montées sur « silent block » ; elles sont donc 



insensibles aux chocs et pratiquement inaudi- 
bles en fonctionnement. Compatibles aux for- 
mats IBM PC / XT (*), elles peuvent conserver 
jusqu'à 360 Ko. formattés. 

L'imprimante qualité courrier fait partie inté- 
grante de la malette ; elle possède 3 formats 
d'impression et 4 différentes polices de 
caractères. 

Le clavier confirme la comptabilité IBM puisqu'il 
possède une disposition des touches identique 
à celle d'un IBM PC / AT (*). 

Comptabilité encore puisque l'adaptateur pour 
écran couleurs au format IBM est intégrable 
dans l'unité centrale du PC 7000. 

Un boitier d'extensions optionnel prend place 
sous l'unité centrale. Il intègre 3 connecteurs 
au format des cartes IBM / PC (*) et un disque 
dur d'une capacité de 1 0 millions de caractères. 

La portabilité, la fiabilité unanimement recon- 
nue des produits SHARP et la totale compta- 
bilité avec la plus grande banque de logiciels 
1 6 bits : 3 atouts qui promettent un beau suc- 
cès au PC 7000 ; succès déjà constaté lors de 
sa première présentation sur le stand SHARP 
SYSTEMES de SICOB. 


* IBM est une marque déposée par INTERNATIONAL BUSINESS 
CORPORATION ; MS.DOS par MICROSOFT CORPORATION. 



CARACTERISTIQUES TECHNIQUES 

Microprocesseurs : 1-8086-2 (7.37 MHz), 
l-8087-2(opt). 

Mémoire vive : 384 Ko extensibles à 768 
Ko. 

Disquettes : 2 unités 5" 1/4 de 360/320 Ko 
formatés. 

Ecran : 80 x 25 caractères, 640 x 200 
pixels gérés « bit-maped ». Eclairage par 
panneau électroluminescent avec une fonc- 
tion d'extinction automatique intégrée. 
Clavier : détachable, conforme au PC / AT, 
3 leds. 

Interfaces : 1 x parallèle CENTRONICS, 
série RS-232 C. 

Dimensions : 410 x 160 x 25 mm. 
Poids : 8,5 kg 
Alimentation : 220V, 50Hz. 

OPTIONS 

Adaptateur pour écran couleur: intégrable 
à l'unité centrale, compatible aux normes 
IBM* 

Boîtier d'extensions : disque dur 3" 1/2 de 
1 0 Mo formatés et 3 Slots pour cartes lon- 
gues ou courtes compatibles IBM* 
Transport : bagage souple protégeant l'or- 
dinateur (et si il y a lieu l'imprimante) dans 
les déplacements. 


k 


I 
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Je dois téléphoner à Monsieur SHARP. Je sors 
mon carnet d'adresses, trouve le numéro et 
l'appelle. Au cours de la conversation dont 
j'écris les grandes lignes sur mon bloc-notes, 
nous convenons d'un rendez-vous ; je sors mon 
agenda pour le noter. 

Carnet d'adresses, Agenda, Bloc-notes, beau- 
coup de papiers et de contraintes pour bien peu 


de notes. Alors... on tire un trait et on décou- 
vre les nouveaux carnets de bord électroniques 
PC 1 100 et EL 61 50 qui ont justement pour 
ambition de vous faire jeter au panier vos 
anciens et encombrants carnets. 

Il s'agit, en fait, d'une nouvelle famille de pro- 
duits réunissant sous un même clavier un ordi- 
nateur, une calculatrice, un gestionnaire de 
fichier et un agenda. 

La EL 6150 possède toutes ces fonctions ; 
équipée de 4 Ko. de mémoire vive, elle permet 
la mémorisation d'environ 160 numéros de 



téléphone. Le PC 1 100 diffère dans sa struc- 
ture mémoire. Equipé en version de base d'une 
carte mémoire de 2 Ko., il peut accepter des 
cartes de 4 ou 8 Ko. Les informations conte- 
nues dans ces mémoires peuvent être proté- 
gées des regards indiscrets. Outre les fonctions 
déjà citées, le PC 1 1 00 est également un ordi- 
nateur de poche programmable en BASIC ; 
BASIC moins riche que celui du PC 1246 car 
ne possédant pas de gestion alphanumérique. 
Imprimante et magnétophone peuvent se con- 
necter sur le PC 1 1 00 puisqu'il est connecta- 
ble au berceau CE 1 25. 




NlËttMMi 



ME 


Imprimant sur du papier normal de 1 14 mm en 
rouleau, le CE MOP se commande comme la 
table traçante CE 51 6P ou l'imprimante du PC 
2500. Il forme un ensemble compacte, esthé- 


tique et autonome avec votre PC 1350 ou 
1450. A noter que cette interface ne possède 
pas de connection pour un magnétophone à 
cassettes. 


Berceau pour les PC 1 350 et 1 450, le CE 1 40 
P se connecte sur la sortie série de ces 2 pro- 
duits. C'est une imprimante table traçante d'un 
nouveau type. Sa principale caractéristique : 
un jeu de 7 couleurs obtenu par 4 couleurs de 
base (Noir, Jaune, Magenta et Cyan) et 3 cou- 
leurs obtenues par mélange des couleurs de 
base : Bleu, Vert et Rouge. Le procédé d'im- 
pression est un savant dosage de 2 techniques 
bien connues : le système à aiguilles et le jet 
d'encre. La tête d'impression n'utilise plus de 
stylos ou de ruban mais des cartouches d'en- 
cre. 4 petites aiguilles (1 par couleur de base) 
vont déposer l'encre sur le papier. Rapide et 
propre, le débit d'encre est contrôlé et déposé, 
non projeté. 













Ci-joint le texte de mon annonce à paraître dans le prochain bulletin, accompagné de son règlement 
(80 F) à l'ordre du club des SHARPENTIERS. 

A SAISIR PC 1 500 (84) 40K, 4 MHZ, + LM, A VENDRE imprimante CE 150(06-84) + k7 VDS PC 1 261 (10 K MEV) + manuel + VEND PC 1 500 + imprimante + mem. 16 
+ logiciels :3500 F. module 32 k avec bat- de programmes. Peu utilisée: 1 300 F. revues du club + CEI 24 + progs : 1 590F. K + magnétophone + cours basic + 
terie : 1 700 F. PC 1 500 + CE-1 55 + logi- DENIS RABAULT, 2, rue du Vésinet, 78290 VDS moniteur couleur 36 CM, prise peritel : machine + programmes. Pert-court chemin 
ciels :1 500 F. CH. POULIN, 7 bis, rue CROISSY. 2 490 F. C. COUVIDA. tél. 69.21.29.66 tb. état ach. (06-83) : 3 700 F. BILLARD, 

Mozart, 78800 HOUILLES - tél.: week-end. 173, rue Aristide Briand, 78700 Conflans- 

39.68.93.70. ste-Honorine - tél. : 39.19.57.12. 



Les affaires club sont essentiellement constituées 
de matériels, accessoires eu |»ériphériques qui ne 
sont pas (ou plus) commercialisés par le réseau de 
revendeurs SHARP. Comme vous pouvez le cons- 
tater, leurs prix sont très attractifs. Une précision, 
toutefois, seules^ les « Affaires club » sont com- 
mercialisées par le club, à l'exclusion de tous 
autres matériels normalement distribués par les 
points de ventes SHARP. 



Unité de disquettes 5 POUCES 1/4 connectable directe- 
ment sur MZ 700. Capacité de stockage : 320 Koctets for- 
matés. Livrée avec DISC BASIC, programmes utilitaires et 
manuel. 

J t90ï 


PC 1500 



MZ 80 A 



CE 155 

Module mémoire 8 Ko. 

250 F 

AEU 

Panier d'extentions pour cartes 


CE 153 

Table à digitaliser. Extension de 



disquettes et imprimantes 

500 F 


140 touches sensitives au clavier 


AFI 

Cartes interface disquettes 

600 F 


du PC 1500 

550 F 

AMD 

Master disquette 

150F 

QCN* 

Connecteur mâle 60 broches permettant 


AD02 

FD0S avec notice très détaillé pour 



l'accès au bus du microprocesseur 

215F 


programmer en assembleur sous disquettes 

600 F 


PC 1251 



MZ 80B 



CE 12 A 

Micro-cassette et manuel (en Anglais) 
traitant de 1 9 programmes orientés 
STATISTIQUES 

120 F 

EU 

Panier d'extentions pour cartes graphiques 
imprimantes et disquettes 

600 F 





CE 12 B 

Micro-cassette et manuel 


MZ 80 K 



CE 12 C 

traitant de 20 programmes orientés 
CALCULS ELECTRONIQUES 

120 F 

T41 

Langage PASCAL (cassette + notice) 

200 F 

Micro-cassette et manuel traitant de 
20 programmes orientés MATHEMATIQUES 

120 F 

TOUS MZ 80 
MZ 80 FDA1 

Lecteur de disquettes 5 pouces 1/4 

2 200 F 






pour MZ 80 K, A ou B 



Interface imprimante 

490 F 

MZ 80 FDA2 

Double lecteur de disquettes 5 p. 

3 200 F 


r 

■ 


BON DE COMMANDE 


Je passe commande de : 


REF. 

QUANT 

DESIGNATION 

P.U 

TTC 

P.TOTAL 

TTC 









NOM PRENOM 

ADRESSE 


Ci-joint mon règlement de F, par chèque bancaire ou C.C.P. établi à l'ordre du SHARI 

BUROTYPE MACHINES*. Il représente le montant total TTC de ma commande. Je prendi 
bonne note qu'au cas ou ma commande ne pourrait être honorée dans la limite des stock; 
disponibles, je serai intégralement remboursé du montant des articles non livrés. 


DATE SIGNATURE 


1 

: 

1 

1 

I 


TOTAL TTC 


* Pour le connecteur QCN, règlement à l'ordre du « Club des Sharpentiers ». 
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- /< £'*?'*> 
W.'*' - 


V'W'-K' 




ADRESSE 


vous prie de bien vouloir lui faire parvenir 

[>Recueil(s| des n° 1 à 5 des bulletins SHARPENTIERS 
au prix de 110 F. (port compris) 

□ Bulletin(s) SHARPENTIER n° 6 □, 7 □, 8 □, 9 □, 10 □ 
au prix de 20 F chacun 

□ Bulletin(s) SHARPENTIER n° 11 □, 12 □, 13 □ 
au prix de 25 F chacun. n° 14 □ au prix de 30 F. 

□ Manuel(s) Langage Machine PC 1500 □, PC 1251 □, 

PC 1350 □ au prix de 180 F chacun. 

□ Manuel de référence MZ800 
au prix de 240 F l'un 

Signature 

Ci-joint un chèque de francs. 

Date 


Ces 4 manuels, en Anglais, très bien documentés, sont des ouvra- 
ges de référence et n'abordent pas l'initiation au langage machine. 
Ils sont disponibles directement au Club, le mercredi après-midi 
(exclusivement), au prix de 1 70 F (MZ800 : 230 F) l'un ; ou par cor- 
respondance au prix de 180 F (MZ800 : 240 F) (port compris). 
Le manuel LM PC 1251 s'applique également à la série PC 14XX, 
aux PC 1260. 


*■■1 











SHARP 
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pn rvoijiïaitl les réaliser 




est cedencant évident que procéde r ainsi est 
ssez penib e. Aussi a-l-on cherché des pr> 
ecTéspèrm îttaipt dj'enç enqrer dës"siiiîësllë” 


[ 'ans la suite, nous utiliser jns le générateu r 
i ncorporé à notre ordinateur, en sppppsaijtqü 'il 
nous! donne des nombres compris pntr^ 0 it 
T (c'est le cas de RND(I pour les ordinateur 



: senenbe >>) ur ce lair précédé (d it « génë- 
ateur aléatoire >) p arimt do construire d'ale 
res nombres cui jeuvent être c ans déres 
rorhrnë aléatoire s, fin fait, si on recomrienée 


suivants : 


n fait, sî on|recèmrhen(pe 


! .1 5 393m et on constr uit I; suite xl par 
= parti; factionnaire de 14f xJ 




reux tests sltatistiaües ber 




en ge ndre r u ne- suit e a l satqrr e-p e - U -ëtjoe- ^Umnjië4< [s xl sont qans - 
(0-1 1 ), nous remarquons que 2.jx n est dans 0-2) donc sa partie entière 

sera soit 0 soit I. 

Lë (programme suivant peri(net |l'af1 ichîige de iji sujte aléatoire engen- 
drée. Sur l'ijrdiiateur de poche, on fera Pé'USÉ au lieu de PRINT ejt un 


etll, là sufface « 0 » étant les 7/1 0 e Ide la surface totale. L aiauille 


donc s'arrêter sur le P avec a piobabiliti 0, 3. lia s mulatioh de celte 
e):pér ence se feta etj aff|ichiint la peirtie entèrele|x n H 0,| 


10 X=INTCRNDCn + .3.1. 1 0 X=INTCRNDC0D + . 3D :BEEP 1 — h 
20 PRINT X 20 PAUSE X I 

36 GOTO 16 30 GOTO 10 | 


PC-I500 

10 X=INTC2*RNDC m 10 X=INTC2*RNDC0T) :BEEP 1 
20 PRINT X 20 PAUSE X 

30 GOTO 10 30 GOTO 10 


Lan cer d'un dél : 1 I 1 I 1 l | l l 

On remarquera que la parti; entière de 6.x, , prend las valeurs 0,1, . .,5, 
ÏTsijffira donc de calculer T0|T(£.xn pour avoir un perâtïiur don- 


WM 


naijt i,.|..,6| I n rri n p 

10 X= 1 +INTC 6 *RNDC 1 n 10 X=1 +INTC 6 *RNÛC 0 rT:BEEP 1 
20 PRINT X 20 PAUSE X 

30 GOTO 10 30 GOTO 10 


S mulatioh d'un dépla ce ment aléatoire sur u n a xe 

Une p articule partant de 0 se déplace sur l'ax e ré el. K cf aqije fo s, e le 

no pe ut s^déplarjer q je ( r unjs un|ité avec la probabilité . 5 p^ur chaq je 
dlrection.j On désjre cor 'ôrqinaljeur (affiche 'abscisse (le lé paiticue. 











Remarquons qpe 2JNT(2.x n > -I soit -I de façon équiprobable^ Il nous 
suffira tfajduteTcfrjnombre à l'abscisse de la particule, Pouij vol se réai 
User son déplacement aléatoire : - ; j L J 


te x=0 • 

20 X=X+2*INTf2*RNOC 
30 PRINT X 
40 GOTO 20 


i :n - 1 


don 


Remarque 
Si la particule 
c0.4 


Tver: 


ESTIMATION D'UNE ESPERANC 


Nous utilisons 


nombre 

point 


d} 

obte 


levait afer- ver# 
•s les x. négatifs, il si 


expê 

nu 


moyenne des points obtenus 
La loi des grands nombres noi 
lité vers l'espérance commur 


Lorsque ce proèrai 
doit voir apparaître} 
: des nombres qscill 
3.5. : 


mai 

riepi 

au 


imtens 


Cet exemple 
que n est grand 
soit voisin de 7f; 
de cette valeuij, 
un très grand 
un petit nombd 
de 7/2. 


Les générateurs aléatoires 
bilité d'un événement, 


ces 


t 0 X-0 

20 X-X+21-INTf2*RNDC03 
30 POI.ISE x 
40 GO T J 20 


| f - 

I 


lesxpo: 
üffiri 


rade re 


ant le gén e rateii 
consistant à lancer 


i e lancer et néus 


mmef 


Lanti 


autour 


lors 


us dit qu 


to urn e , p n 
à l'affichage, 


né dei 


des ; 


sX 


sitil 

Mil 


s at 


place 


vec la 
îifÉDft) 


un dé 


calçulohs 


n premiers 
eS 
c 


doit cd 
•àfdire 


probabil 


lanp 


nvi 

7/2 


1 par 


aléa toire pour jsirmi ler pn gran d 


VQT. 


lité 0.6 et 
RND(1)+.6 


Nous appelons Xi le 


:ers 
drger] en 




)/n 


probabi- 


! * Une épreuve E conduit à l'apparition de A (probabilité R) ou À (proba- 
bilité q = 1 — p). On répète E, m grand nombre de fois (de façons indé- 
pendantes) or note Xi=l si A se produit à l'épreuve n° i et X, = 0 si non. 
I Soit S Ja. fréquence d'appariti o n de A, . c'est-à-dire 
S n = (X l+ X 2+ ...+X n )/n. 

j On sa t, d apres là loi des grands nombre?, que S, va converger pn pro- 
i bpbilitë vers lèspéranlœ dommunlè des X h c'^t : â-dTr J e O.fl- pr+ïlp =rp, 
probabilité d'épparition de A. 

Autrbexempe : 
celui de la roulette du § 2 


-y- - 1 — y w î 1 J s ! ! I ! ! | I ! 

Essayons de retrouver la probabilité 0.3 d'obtenir le «1 » en faisant tour 


nér la 


1er, S/N doit osciller autour de 0.3 


SôitX 
sur cet infi 


de 


10 n= 0 ;s-0 

20 X- 1 + INT (6TRNDC 1 n 
30 N-N+l :S=S + X 
40 PRINT S/N 
50 GOTO 20 


CALCUL D'INTEGRAI 


valeur; 

l'ospé 


EiïW 


4. ESTIMATION D'UNE PROBABILITE 


ien la notion de convergence en probabilité : lors- 
, il v a dè très fortes chances poür que lé nombre affiché 
2; nbaisieelalriei^rouve plas q^iLest qbligàtoirpmelntvbisiilr 
.Cela signifie que sion programmait de façon identique, 
pornbre je mpchinesr -alojrs, ijKscue-iideweni-grpnd.seul 
de Ces Iriachings afFichèraijdes norlnbrès très différent? 


roulette 


Mpi 

jrani 


V! 

er 

(nsi 


une vajiablé aléatoire gontipi 


valle 
R.No 
ce de Y 


fikia 


itons Y =f(X 
lestldonnée 


i xidx 


perme 


Jorsqu'ellaJest diffrcilement calculables Pour le 
montrer, nous prenons un exemple très simple, celui du lanceii d'u'n dp 
et nous essayons de retrouver 1/6 = 0 1666666 .. comme probabilité 
d'apparition du chiffre 6 Le programme suivant permet d'afficher la fré- 
quence du nombre d'apparitions du 6 au cours des n premières épreuves : 


i . . T" “T î — t ~~t~~ 

Dans ce programme.Ncompte le 
nombre d'épreuves effectuées 


i S le nombte dè 6 


chage de la machine. 


bbténuè 


d'ap 


Nous sàvohs, 

converge en p^ob^bilitjé vers! 


ES 


PAR LA METHODE DE MONTE-CARLO 


(et 0 en dehors) 

4 

pan 


d'où; 1 


1 


Effectuons une série d'expériences aléatoires 
d'elles consistant 
rience, notons X 


a^éiaitèiiït}ourp^ ^poiurl1ntehrai|r(0^1)fgue 
à-dire la loi continue uniformesut (a,b). Par eonséq 1 

V !— -f/V \ i/ftn+iÂ+i-ri ir\/lAnfthrl<i»l+ftP Sût pi |,|W,, Ç_|j rla V 


10 N=0:S=0 

20 X= I NT CRNDC 1 1 + . 33 :N=N+ 1 
30 IF X= 1 LET S=S+1 
40 PRINT S/N 
50 GOTO 20 


léfonbtïohdé 


flxld x 


Y| = f(X|) vontêtre indépendanteset suivr 
nombfesjioujidit que} daiiscès conditions, (Y, t-Yj+.-.+Yj 
verger en prebab lité vèrs E(Y). ; i | ___| _•! 

On voit ainsi apparaître un moyen de calculer Hntégralè 
simulation : ' ~ r ~ r ~ i ■ • 


iue|sur 
. Soit 


a, b) de 


dé 


(b-a)E(Y) 


à choisir, ali hasard un pointons 
l'abscisse du point obtenu. Il èst 


inip c 
lairari 


densité g(x) = l/}(b -a) 
sur (a/b) à 


ontinue 

iableX. On saitque 


indépendantes, chacune 


(a, b). A 
acile dè 


voi[ (cela 
Xj 'suit la loi dé X, :c'est- 


uent 

loi de Y. La loi des grands 
i/n va con- 


la i e 


expe- 


rtes variables 


f(x)dx par 


On ccntruit une suite x' n .uniformément ijépartie dans (a, b). Pour cela, 
nous reprenons nos f( n qui se trouvaient dans {(0.1 ) et nos posons : 
x' n =(b-a)x n +a.. ■ } : 

Comme Tf(x'|)+ f lx' n î|/n éôhvergp pfpba^itTt|ê) vers E(Yfr j \ 


b-a) (f(x'j) +...+f(x' n )) doit 
n 


ès la lo i! 


et 


10 N=0 :S=0 

20 X=l+INTC6*RND(l 11 
:N“ N+ 1 

30 IF X-6 LF. T S--S+1 
40 PRINT S/N 
50 GOTO 20 


Voici quelques exemples 
elj 1 (jign^ 1Q) et pù là fon 


programmes ou 
, , on y =f(x) esté 

de chaque programme, on trouvera la valeur 


converger vers f(x)dx 


de 


ictipi 


J t 


les; 


bornes 


crite à la 
« exact 


BIT 


et 


B sont 0 
70. A côté 
intégrale. 


- 4 - ■ 


des.grands nombres 


6 et c'ést Çe que 


que ce tte fré que n ce 
]on constate à ijaffil 


f(x)=x 3 entre 0 et 1 : 0.25 

t 1 r 


fjÿ ] 


10 

20 

30 

40 

50 

60 

20 

80 


N-0 îS rJ 0 : A-0 *8 - 1 

X - 8 1 C 6 - 0 .) YRNli ( 1 J : Gü'3 1 18 20 

S'- S *■ T :N -N ♦ 1 

PRINT S /N 

GO T O 20 

RE 11 ------------ 

Y -XT3 
RETURN 

__ 1 4 1—4- -4 L 


SHARP 



f(x) = 1|(1 -f x 2 ) entiie 0 et 1 : m 




f(x)f=sm(xMHx 2 ) entre 0 et 1 
OT7ST5P1 — 


10 N=0:S=0-B^0:B-=1 
20 X=A+CB-A.'i*RNDC 1 J : 
GÛSIJB 70 
30 S=S+T :N=N+1 
40 PRINT S/N 
50 GOTO 20 
60 REP1 

70 T^1/C 1+XÎ23 
80 RETURN 


10 N=0:S=0‘A=0:B-=1 
20 X-A+CB-A)*RNDC 1 D 
: GOSUB 70 
30 S=S+T :N-N+ 1 
40 PRINT S/N 
50 GOTO 20 
60 REfl — — 

70 T=SINCX)/Cl+Xt2D 
80 RETURN 



H 

9 


=e~' x T./\p2Ü enire (I et 1 

11 ;ï 44 Mï n 




W/L_ 

îï âmi'M; 




10 N=0:S=0:fl=0:B=1 
20 X=A+CB-fO*RNDC1 .1 
: GOSUB 70 
30 S=S+Y:N=N+I 
40 PRINT SrN 
50 GOTO 20 
60 REI1 

70 Y=EXPC-X*X/2 VSQRC2**) 
80 RETURN 





culer la valeur de détmnijianls njimiÆiq iiss 
d'otfdre |2 à|6cpmpris. Coijime il est éprit en 


BASIC, il n( faijit pus êjre t op presfsé dans! le 
cas ^ësleïerrrinarits (Tordre 5 et 

priniafitaràtof d iti on q ue Hés-termiSiircfn^ 


On peut rem arq uer bue le calcul d'ündêterm^ 
nanjt d'ordre 6 lignes 4 9 9 a 530) n a p u être 
corïjduîtTs uij/anf le mêrjte algorjthmff cjue (es 
” détjrmijiantjs 3 7 ^fe3,4,5|lignesl99l A70|. 
“En pffek, lu PC 1261 n’iccajte que cinq 


-t— h-t 


IH ./\ I | |||^| 




i— l— h 




1 • REM Dan i e i MAGN 1 H 1 9 
85 

9: REM initial i sat i on 
10: CLEAR : CURSOR 29: 
PRINT ''Déterminants'' 
: INPUT *auec imprim 
ante ? " ï FF# 

20:* A* INPUT ''ordre de 
2 a 8 ? *5N 

30: N= INT N: IF N<2 OR 
N >6 THEN *A* 

40: DIM A ( N ! N ) 

50: FOR 1=1 TO N: FOR J= 
1 TO N 

60 : WA I T 0: CLS : PRINT 

*a<*;i; j;*> ; : 

INPUT A<I-J> 

70: NEXT J: NEXT I 
80: IF LEFT*,(FF*»1> = *0* 
GQSUB 600 

85: CLS : GOSUB 958 
90: ON N-l GOTO 100-200. 

300-400)500 
99: REM ordre 2 
100: GOSUB 150: DE=S: GOTO 
900 


149: REM ordre 2: calcul 
150: S=A( 1 ?! )#A(2>2)-A< 1 - 
2>*A<2- 1>: RETURN 
199: REM ordre 3: mise en 
p I ace 

200: GOSUB 850 
210: FOR 1=1 TO 3: FOR J= 
1 TO 3 : B C I - J ) =A C I - J } 
: NEXT J: NEXT I 
220: GOSUB 250:DE=T: GOTO 
900 

249: REM calcul: ordre 3 
250: FOR H=1 TO 3:S=0:P=3 
: Y=H: GOSUB 700 
260: GOSUB 150: T=T+S*BCH- 



1 >=**■'- 1 > < H + 1 

) ; 

NEXT 


H: RETURN 




299: 

: REM ordre 

4: 

iïi 

ise en 


p 1 ace 




300: 

: GOSUB 840 




310: 

: FOR 1 = 1 TO 

4 

: 

FOR J= 


1 TO 4: CCI 

? J 

> = 

H ( I !» J > 


: NEXT J: 

ne; 

•<T 

T 

A 

320: 

: GOSUB 350: 

LU 

1=1 

=U 

: GOTO 


900 




349: 

: REM ca 1 eu 1 

ordre 4 

350: 

: FOR K=1 TO 

4i 

: T 

=0: P=4 


: V=K : GOSUB 700 
360: GOSUB 250: U=U+T*eCK- 
1 >*(-1 >MK+1 > : NEXT 
K: RETURN 




399: REM ordre 5: mise en 
place 

400: GÛSUB 830 
410: FOR 1=1 TO 5: FOR J= 
1 TO 5 : B d ? J > = A d ? J > 
: NEXT J: NEXT I 
420: GÛSUB 450:BE=V: GOTO 
900 

449: REM calcul ordre 5 
450:FOR L=1 TO 5:U=0:Y=L 
: P=5: GOSUB 708 
460: GOSUB 350 : V=V+U*D<Lî 
1>*<-1)ML+1>: NEXT 
L: RETURN 

478: GOSUB 330: V=V+U*DŒ? 
1): NEXT E: RETURN 



610: FOR 1=1 TO N: FOR J= 
1 TO N 

620: Q= LEN STRI Ad? J): 
IF J=1 OR N >5 LET Q= 
Q+2 

630: ON Q GOSUB 650? 660 j 6 
70? 680 

640: PRINT STRI A(I?. J)?: 
NEXT J: PRINT *»: 
NEXT I: RETURN 
650: PRINT " 

RETURN 

660: PRINT * *5: RETURN 

670: PRINT * *}: RETURN 

630: PRINT " * ? : RETURN 
699:REM formation des mi 



819: REM dimensionnement 
des mémoires 
820: BIM E<6?6> 

330: DIM B C 5 ? 5 > 

340: DIM C < 4 ? 4 ) 

350: DIM B < 3 ? 3 ) : RETURN 
899: REM affichage du res 
u i tat 

900: BEEP i: CLS : WAIT : 
PRINT "delta "5 STRI 
N ? " = " ? STRI DE 
910: PRINT = PRINT : GOTO 
10 

949:REM correction des e 
rreurs d entree 
958: INPUT "des modificat 


499: REM ordre 6 
500: GOSUB 820 
510: FOR 1=1 TO 6: FOR J= 
1 TO 6 : E d ? J ) = A d > J > 
: NEXT J: NEXT I 
520: M=M+1 : V=0: Y=M: P=6: 
GOSUB 700 

530: GOSUB 450: W=W+V*E<M? 

1>*<-1) A <M+1) 

540: IF M<6 THEN 520‘ 

550: DE=W: GOTO 900 
599: REM impression du de 
term i nant 
PRINT = LPRINT : 
PRINT "déterminant " 
; STRI Nî"#d STRI N 


neurs 

700: FOR 1=1 TO P: Z=I : IF 
I >=Y LET Z=I + 1 

710: IF Z>P THEN 730 

720: FOR J=2 TO P: ON P-2 
GOSUB 750? 760? 770? 78 
0: NEXT J 

730: NEXT I: RETURN 

750: Ad? ,T-1)=B(Z? J): 
RETURN 

760 : B d ? J- 1 > =C < Z ? J > : 
RETURN 

770 : C d ? J- 1 ) =D ( Z ? J > : 
RETURN 

780: Dd? J-1)=E(Z? J): 
RETURN 


ions ? "?FEI 

960: IF LEFTI <FEI? 1)0*0 
" RETURN 

970: INPUT "liane "? I? "co 
lonne *? J? "valeur "? 
A (I ? J ) 

980: IF LEFTI (FFI?1>="0" 
PRINT *A(*5ISJÎ*)="Î 
A d ? J ) 

990: GOTO 950 








1 : REM Daniel MAGNIN 19 
8,5 version 1985 pour 
PC- 12,81 

4: REM initial i sat i on 
5: CLEAR : PRINT "Class 
ement a I phabet i iue" ! 
INPUT "Nombre d elev 
es connu ? "5Z$ 

10: INPUT " i mpress i on de 
I iste ? "5X$ 

15: IF LEFT$ (Z*>1)="N" 
THEN 99 

20: INPUT "combien ? "5 N 
: DIM AAI (N) 

24: REM entree des noms 
(nombre connu) 

25: FOR 1=1 TO N: INPUT 
"nom ? "ÎAAKI): 

NEXT I 
29: REM tr i 

30: FOR K=1 TO N-l: IF A 
A$(K>< AAKK+l ) THEN 
40 

35: XX$=AA$(K> : AA$(K)=AA 
$<K+1):AA$(K+1)=XX$: 
•J=l 

40: NEXT K 

45: IF J=1 LET J=0: GOTO 
30 

49: REM impression event 
ue I le de la I i ste 
50: IF LEFTS <X$»1)="Û" 
PRINT = LPRINT 
55: FOR 1=1 TO N: PRINT 
i;")"!AA$(I>: NEXT I 
59:REM sauueaarde optio 
nnelle sur cassette 
60: PRINT = PRINT : 

INPUT "sauvegarde ? 
"ÎW*: IF LEFT$ <W*il 
) = " N * THEN 35 
65: PRINT #N: PRINT IAA$ 
(#) 

85: PRINT "FIN": END 
98: REM entree des noms: 
nombre inconnu 
99: INPUT "donnez un nom 
bre majore "5 Y: DIM 
AA$< Y) 

1 10: BEEP l: PRINT "Apres 
la fin de la liste 
repondez par 0" 

120:N=N+l: INPUT "nom ? 

" ! AA$CN> 

130:IF AA$(N)< >*0* THEN 
120 

140: N=N-1 : GOTO 30 



200: CLEAR : PRINT "Liste 
": INPUT "impression 
? *ÏZ $: IF LEFTI (Z 
*>1)="0" PRINT = 
LPRINT 

210: INPUT #N: DIM AAf(N) 
: INPUT #AA$(*>: 

BEEP 1 

220: FOR 1=1 TO N: PRINT 
i;*)"5AA$a>: NEXT I 

230: PRINT = PRINT : 

PRINT "FIN": END 


diw 

1008 


1009: 

1010 : 


1020 : 


1030: 

1039: 

1040: 

1050: 


1059: 

1060: FOR 1=1 TO N: CLS 


es 


PR INI 


' e | hijp 


1070: 

1099: 


1119: 

1120: 

113Ô: 

1140: 


REM Daniel MA G H I N 
1983 y ers ! o n 1985 
pour PC- 1261 
REM initial i sat i on 
v M v CLEhR : PRINT 
v Moyennes et class 
e nient v 

NAIT 0: INPUT V ave 
c i iïipr i ruante ? V »F 

El 

INPUT ! i ste sur c 
assette ? y îFFI 
REM I i ste manue i i e 
IF LEFTI <FFI« 1>= V 
0 tf THEN 1500 
PRINT v nombre d v 5 
CHRI 395 v el eues v 5 
: INPUT N: G03UB 1 
458 

REM entree des not 


S TRI I5 V v 5: INPUT 
A h $ i 1 

! GOSUB 1680: NEXT I 
! REM calcul de la ru 
o y en ne 

1 1 0 Ô : C = D • ' N : P = 4 : IF C< 10 
LET P =3 

1185:CLS : NAIT : IF 
LEFTI (FEI, l)= y 0 v 
PRINT = LPRINT : 
NAIT 0 

1 110: GOSUB 1900: BEEP 1 
: PRINT v moy enne a 
eneraie u 5 STRI C: 
PRINT = PRINT 
iREM classement 
: FOR T=1 TO N-l 
IF B(T>>=B(T+i) 
T HEN 1150 

: X=B(T+1 ) : B(T+1 >=B< 
T ) : B ( T > =X : J= 1 


1150: NEXT T 
1160: IF J=1 LET J=0s 
GOTO 1120 
1199: REM résultats 
1200:IF LEFTI <FEI>1)= V 
0 V PRINT = LPRINT 
1210: BEEP 2: FOR 1=1 TO 
N: FOR J=1 TO N 
1220: IF C(J)=B(I) GOSUB 
1300 

1230: NEXT J: NEXT I: 
.PRINT v F i n v : END 
1299: REM impression du 
c I asseyent 

1380: P=3: C=B( I > : IF CCI 
0 LET P=2 

1310: GOSUB 1900: PRINT 

i? v } v îaakj>; v y ; 

S TRI c: RETURN 
1449: REM d i mens i onnemen 
t 

1450: DIM AAKN): DIM B( 
N): DIM C(N): 
RETURN 

1499: REM entrées par ca 
s s e t e 

1590: NAIT : PRINT v prep 
arez le maynetopho 
ne v 

1518: INPUT #N: GOSUB 14 
50: INPUT &AAI<*> 
1520: FOR 1=1 TO N: CLS 
: NAIT : PRINT AAI 
(I): GOSUB 1600 
1530: NEXT I: GOTO 1100 
1599: REM entree des not 
es 

1600: NAIT 0: INPUT M com 
bien de notes ? v 5 
Z: V=0 

1618: FOR J=1 TO Z: CLS 
: PRINT "note v 5 J5 
v ï: INPUT X 
1620: V=V+X: NEXT J 
1630: CLS : PRINT v corre 
et pour V .5AA$(I)5 V 
w 5: INPUT FBI 
1640: IF LEFTI (FDI ? 1)= V 
N v NAIT : CLS : 
PRINT v r e c o m m e ri c e z 
v ;AA$<I>; v ! v : 
GOTO 1680 

1650: D=D+ V Z : B C I ) = V Z : C 
(I)=V/Z: RETURN 
1899: REM arrondis 
1900: A = C : B=P- INT < LOG 
( ABS (C))) 

1910: C= INT <C+10' a ‘B+.5> 
*10 A -B 
1920: RETURN 
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Je ne tiens pas à faire de vous de brillants 
mathématiciens (pardon si vous l'êtes I) mais 
vous trouverez! dans cet exposé ; quelques 
notions! fondamentales sur les fonctions 
mathématiques. 

Pas de tableaux de variation, de courbes, de 
limites ou de dérivés, juste un cercle trigono- 
métrique qui traîne avec sinus et cosinus, et 


surtout des astuces de calculs. Cette étude, 
écrite pour le PC-1 500 peut très bien s'adap- 
ter aux basics des différents PC et MZ. 

LE MODE ANGULAIRE 

Le PC-1 500 travaille dans les trois modes angu- 
laires courants que l'homme a inventés. Il aurait 
été bien sûr trop simple de faire un tour de 0 
à 100, c'est pourquoi on a : 


DEGREE 

RADIAN 

GRAD 


angle système 2 =i angle système^ x/'— ur s ystèmeJ!\ 

\ tour système 1 / 

exemple : 90 degrés en; gradian ^OxflOgN^lOO gradians 
V 360 y 


tour = 360 

le + commun 

tour = 2t 

le + logique 

tour = 400 

inutilisé 

de convertir 

un angle d'an 

autre est : 



L'apparition du f dans la définition d'un cercle en radian vous rappelle certainement cette formule : 

circonférence = 2 x 7 r x rayon 

Vous constatez que si l'on prend rayon = 1, on a : 

circonférence = 2 x t ce qui correspond à son angle en radians ! 

Ce n'était donc pas si idiot que cela de prendre 1 tour = 6,283185307 radians. Ce cercle de 
rayon = 1 est souvent utilisé car on n'a plus à trainer R qui n'est qu'un facteur de proportionna- 
lité. Son nom est cercle trigonométrique. 

Vous connaissez ? Et bien tant pis ! Continuons... Sinus et Cosinus (dans une nouvelle aventure 
d'Astérix ?). 

Pour calculer la valeur d'un angle sur ce cercle, on a défini une origine, l'axe ox et un sens positif, 
inverse de celui des aiguilles d'une montre. 

Choisissons un point P quelconque sur le cercle. Sa distance avec le centre est 1 (sinon ce n'est 
pas un cercle I). On peut calculer avec un rapporteur l'angle formé par OP et Ox. On le nomme 
x. De même, on peut projeter l'image de ce point sur Ox, on aura alors la distance OX et sur 
Oy, on aura cette fois Oy. 

On s'aperçoit alors que OX = COS x OY = SIN x 
Pour un cercle de rayon R, il suffit de multiplier par R. 

On a donc l'équation d'un cercle ayant son centre en : (0,0). 

(X,Y)=(R*COSx, R*SINx)x variant de 0 à 2 1 radians. 

On s'aperçoit que : x + 2Kir=x avec K entier 

On a des quantités de formule avec ces SIN et COS, voici la plus importante : 

1 =SIN 2 x+C0S 2 x 


Ce cercle est représenté ainsi : 




TANGEANTE 

Cette fonction est en fait : L=TANx= 

COSx 

Remarquez que si x= t +Kt avec K entier 
2 

COSx=0 donc TANx n'est pas défini. 

Voici ce que cette fonction exprime : 



Pour un cercle de rayon R, on aura : 
L=R*TANx 

On définit aussi la fonction contangente qui 
est : 

C0Sx_ 1 

SINx TANx 

La distance L calculée ne sera plus verticale 
mais horizontale. 


Per mettent de connaître un angle connaissant 
une distance. Le paramètre lies potions n'IsT 
pas tnfljuen^é par lp mpde angjulaije, rjiaisfle 
rSsîîTEal l'est. On peut donc convertir 90°1en 


. Na iTOG£ EXf , a=e a 

iivëtrëTT^PT^TTf 


Qr aucur^rqinateur de iTgamm e S HAHP n e 
faite îtte coite ion foi igine, 01 1 va don c leiir 


mu sue uun version 1 j i 
^indfr^ôitljanalT 


i valeur â convertir : 


1 fe CpSx <1 et 
SINxlT 


ir^^MTiB fïïïïi u^ rïTill 

mmr 


r R =145. el e sôrti a 145 


ste , me is on piefer era peut-être. 
45 E3 oui est nius cojrarnment 


v ai » m m mm 

Müll- g W ____ 

iHsr 


ui h utilise qu 




IBHSSüEŒEBaaSlBîlüSiBa&ian 
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IrïïafreM 


acihe dubiaue 


DEG, DMS 

IsOüf^ 


ette fonct on LOG es! très uti e c 
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mm 
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SYSTEME 


MZ 5600 
LE MINI 
MULTIPOSTES 
MULTI- 
UTILISATEURS 


Le MZ 5600 est une unité centrale présentant 
la même architecture qu'un mini-ordinateur. 
Il est orienté, en priorité, vers les applica- 
tions multi-postes et multi-tâches. 


Série MZ~5600 



i 1 

_! !"* Disquette 

X i de 640 Ko 
L T Ü_J I (800 Ko avec 
l _ D- J EOS-16*)x2 


| Panier d'extension (connecteurs)’* 


•MZ-5631; une standard, 
une en option 
MZ-5641: deux standard 
MZ-S645: une standard 
♦•MZ-5631: interne ou externe 
en option 

MZ-5641: externe en option 
MZ-5645: interne standard 
••MZ-5631, MZ-5641: en option 
MZ-5645: standard 


1) LES MICROPROCESSEURS 

L'élément principal est un iAPX-86 fonction- 
nant à 8MHz. assisté par un contrôleur de BUS 
1.8089 et par 2 processeurs optionnels : 
1.8086-2 et 1.8087-2 spécialisés dans les calculs. 

• 4 microprocesseurs spécialisés prennent en 
charge la gestion de l'écran ; texte, graphisme 
haute résolution et couleurs. 

• 1 processeur « CANAL » gère les transferts 
RAM-RAM et RAM-DISQUE par 4 cannaux 
totalement indépendants. 

• 1 processeur gère indépendamment les uni- 
tés de disquettes souples. 

• Les entrées-sorties V24 sont également 
gérées, 2 par 2, par un processeur spécialisé. 

• Même gestion spécialisée pour la sortie 
imprimante parallèle CENTRONICS. 


2) LA MEMOIRE 

• Les 256 Ko. ou 512 Ko. de mémoire de tra- 
vail sont dotés d'une logique de protection de 
la mémoire qui évite le chevauchement des 
programmes en cas d'erreur sur l'un des pro- 
grammes. Elle contrôle également le droit de 
lecture / écriture sur un espace mémoire 


donné. Ainsi, un programme en cours ne peut 
pas écrire ou même lire l'espace mémoire 
alloué à une autre application. Cela élimine 
toute possibilité de « SCRATCH » du système 
dans un environnement multi-utilisateurs. 

• La mémoire vidéo standard a une capacité 
de 96 Ko. extensible à 192 Ko. 


3) LES PERIPHERIQUES 

• Disquettes 5 Pouces formattées à 800 Ko. ou 

640 Ko. selon le système d'exploitation utilisé. 

• Disques durs intégrés de 10 ou 20 Mo. 

• Disques durs externes de 40 ou 64 Mo. avec 
possibilité de sauvegarde par « STREAMER » 
en quelques minutes. 

• Disques souples de 8 pouces d'une capacité 
unitaire de 1,2 Mo. 

• Gamme d'écrans monochromes ou couleurs 
graphiques. 

• Terminaux écran-clavier orientés 
caractères. 

• Processeurs sur cartes permettant l'émulation 
de systèmes 8 bits. 

• Périphériques d'entrée : Clavier ou souris. 





SYSTEME 



LE MZ-5600 
AU SICOB 


La politique de Sharp envers le MZ-5600 fut 
présentée au SICOB 1985. 

Elle s'oriente selon trois grands axes qui 
sont : 

• La pluralité des « Operating Systèmes » 

• Le développement des communications 

• Le poste de travail 

7 ateliers disticts ont composé le stand Sharp 
Système 

LE SERVEUR MINITEL ou Ton pouvait utiliser 
la méssagerie électronique, un programme de 
gestion de rendez-vous et plusieurs autres 
applications. 

Deux minitels connectés par lignes téléphoni- 
ques à un MZ56/60 (MZ-5600 avec disque dur 
de 67Mo.) parmettait l'intégration du site ser- 
veur. Localement un écran permettait la mise 
à jour des différents renseignements. 

LE MULTIPOSTE composé de 6 écrans/clavier 
(terminaux intelligents) connectés sur un site 
central (disque dur 67Mo. et sauvegarde par 
« streamer » de 60Mo.) ; dune imprimante 
qualité listing ou courrier, et dune liaison V24 
(RS. 422) connectée à une seconde unité cen- 
trale en réseau. 

Le MZ-5600 a ainsi géré 8 tâches distinctes dont 
une : le superviseur multi-tâches qui joue le 
rôle de chef d'orchestre. 

Le PC-7000 ordinateur personnel compacte et 
portable, dont la comptabilité lui permet de 
reprendre à son compte toute la bibliothèque 
des logiciels du PG-IBM. (voir notre rubrique 
nouveautés). 

LE MZ-5600 FONCTIONNANT EN RESEAU 

SHARPNET est un réseau en anneau compati- 
ble « MULTILINK » qui permet d'homogéini- 
ser un environnement micro-informatique qui 
a grandi de façon hétérogène. 

SHARPNET permet de connecter ensemble les 
systèmes les plus divers comme : 

APPEL, IBM, COMMODORE, EPSON, KEY- 
PRO, VAX, PDP 1 1 , ainsi que toutes les machi- 
nes possédant les standars UNIBUS, Q.BUS, 
MULTIBUS et BUS S . 100. 



RS 020 
1XRS-232C 


RS 010 
1XRS-232C 


RESEAU SHARPNET 


MZ-5600 

CSH OIO SS 01 0 
IBM et compatibles 
CPC010 SP 010 


CAP 01 0 SA 01 0 


EPSON QX 10 


T — Û 


CW 010 SC 010 


APPLE 2e/ 2 + 

CA 010 (Soft en EPROM) 

D.E.C. 

CD 010 UNIBUS (DZ- 11) 

CQ 010 Q-BUS 


CS 010 Bus Z -80 


on mm 



SYSTEME 



XNET un réseau intégré au système d'exploi- 
tation M.O.S. 

Reliant par un canal rapide deux unités cen- 
trales, il gère la liaison en mode MULTI- 
TACHES ; deux ou plusieurs programmes peu- 
vent ainsi s'exécuter simultanément et accéder 
aux ressources, disguettes, disgues durs, 
imprimantes etc... de l'autre unité centrale. 
Le poste 6 a rassemblé toutes LES APPLICA- 
TIONS du type TABLEUR, BASE DE DON- 
NEES, TRAITEMENT DE TEXTE en présentant 
les « Best-sellers » sous système d'exploitation 
MS.DOS.2.11. 

LE POSTE DE TRAVAIL BUREAUTIQUE où fut 

présenté GEM (GRAPHIC ENVIRONNEMENT 
MANAGER) et ses logiciels intégrés. Répon- 
dant au besoin de simplification de l'interface 
HOMME/MACHINE, SHARP répond égale- 
ment au futurs besoins des consommateurs. 

• Graphisme haute résolution (640 x 400 
points). 

• Graphisme couleur (8 couleurs par point). 

• La souris et les icônes. 

La présentation de GEM et ses logiciels inté- 
grés : WRITE, DRAW, PAINT, fut une pre- 
mière mondiale très remarguée, même par nos 
visiteurs japonais. 

Le second point d'attrait de ce poste fut un 
autre logiciel intégré : 

LOGISTIX : tableur graphique/Base de don- 
nées/ Gestion de projet. 

Compatible avec les fichiers des logiciels 
LOTUS 1,2,3, D BASE, SUPER CALC, VISI 
CALC, WARDSTAR, MAIL MERGE, etc, il 
permet de travailler sur 1024x2048 cases et 
de réprésenter des graphiques sous une résou- 
tion de 640x400 points. 

Ces graphiques peuvent être reproduits sur 
l'imprimante à jet d'encre 10.700 ou sur le tra- 
ceur de courbes CE.516P. 

Le dernier poste de cette présentation a été 
dédié à la CAO et la DAO représentées res- 
pectivement par SHARPCAD et UNIPAINT. 
SHARPCAD est un logiciel couleurs de con- 
ception assistée par ordinateur présentant des 
qualités similaires au Best-seller « AUTO- 
CAD » avec certaines caractéristiques plus 
évoluées. 

UNIPAINT, présenté dans une version de test 
a les fonctionnalités des logiciels de la caté- 
gorie « Paint ». Il utilise pleinement les capa- 
cités des quatre micro-processeurs du MZ 
dédiés à la gestion graphique 640 x 400 points 
en 8 couleurs. 

Deux points importants resteront gravés dans 
la mémoire des visiteurs de notre stand 
SYSTEME du SICOB : l'épanouissement des 
technologies et des applications professionnel- 
les SHARP,... et la chaleur tropicale qui y 
régnait ! 

E. BERNARD 




« STREAMER » pour la sauvegarde rapide des disques durs. 


RESEAU 

XNET 



Peut acoeder aux 
ressources : 

C\ A' et B\ 








ressources : 
B' et A’. 





’eut accéder aux 
essources : 

V et A'. 




SYSTEME 

D'EXPLOITATION 

SHARP-5600 


SYSTEME MOS 

MERCURE OPERATING SYSTEM 

performant, le Système MOS allié à la simpli- 
cité d'utilisation des micros, donne une éton- 
nante puissance digne des plus gros systèmes. 
Le Système d'exploitation est de développe- 
ment professionnel, conçu dans un esprit d'in- 
dépendance vis-à-vis du matériel (processeurs 
8, 16, 32 bits...), modulaire et évolutif (mono 
et multi tâches, mono et multi-postes, mono et 
multi-processeurs ; possibilité d'intercon- 
nexion de plusieurs ordinateurs de marques 
identiques ou différentes), puissant (fichier de 
plusieurs milliards de caractères, adaptables 
à tous types de périphériques), complet (par- 
tage des fichiers et des enregistrements, con- 
fidentialité des programmes et des fichiers, 
gestion de fichier séquentiel indexé multiclés 
(jusqu'à 20), tri de fichiers, langages interpré- 
tés et compilés : MICROBOL et M, éditeur 
pleine page, etc., (une trentaine d'utilitaires 
en version de base), simple d'emploi (conver- 
sationnel et en français), documenté (classeur 
de 350 pages)... 

XMMPP. Mise en page paramétrable. 

Conçu pour des non informaticiens, ce module 
vous permet de composer vous-même l'édition 
et la mise en page de vos états imprimés. Indé- 
pendant du programme, il offre à l'utilisateur 
la plus grande souplesse d'utilisation, cette pro- 
cédure est couramment appelée « paramé- 
trage ». 

XGEFI. Générateur de fichiers. 

Créé pour les utilisateurs non informaticiens, 
XGEFI est un remarquable générateur de pro- 
grammes de gestion de fichiers (création, inter- 
rogation multi-critères, mise à jour, sélection, 
tri, étiquettes, listes, mailing, etc.), il vous per- 
met de créer des fichiers (prospects, clients, 
articles, représentants, etc.). 

XLOCK. Verouillage de disquettes. 

Il interdit la duplication frauduleuse de pro- 


grammes en « marquant » la disquette d'un 
fichier induplicable. 

AIDES A LA DECISION 
BUREAUTIQUE 

XPLAN 

Un tableur à la hauteur de ses ambitions. Entiè- 
rement conversationnel la mise en œuvre 
d'XPLAN est un jeu d'enfant. Il permet de gérer 
des tableaux de 999 lignes x 999 colonnes. 
XPLAN effectue des calculs sur des valeurs 
numériques de 20 chiffres significatifs. 

Il permet d'employer des fonctions : racine car- 
rée, exponentielle, logarithme, sinus, cosinus, 
arc sinus, etc. 

XPLAN permet la gestion de fenêtres indépen- 
dantes. Il peut récupérer des informations dans 
les fichiers de la comptabilité par exemple et 
éditer des résultats à partir de ces données. 

CTEXTE 

Traitement de texte simple d'emploi répondant 
aux besoins les plus courants. 

L'éditeur CTEXTE comporte deux modes : 

• le mode « saisie » 

• le mode « commande », 

il autorise la frappe au « kilomètre ». Avec des 
fonctions de centrage, de justification à droite, 
de double frappe, soulignement, tabulation, 
saut de page, etc. 

Il permet d'éditer des textes pour mailing à par- 
tir d'un fichier de référence. 

Sa simplicité d'utilisation est remarquable. 

LATIN 

Le LATIN (langage de Traitement des Infor- 
mations) est le langage naturel de MERCURE. 
Il a été créé : pour les non-informaticiens qui 
peuvent sélectionner des informations de leurs 
fichiers, les afficher, les imprimer, les extraire 
dans un autre fichier (pour le traitement de 
texte par exemple) ou les mettre au format du 
tableur. 

Pour les informaticiens, réduire les temps 
d'écriture de programmes de sélection, liste, 
interrogation (réduction des délais et des 
coûts). 

Un programme LATIN est constitué de CHA- 
PITRES. Chaque chapitre est constitué d'ins- 
tructions en français. 

Un outil puissant et simple d'utilisation. 

MINITEL ET COMMUNICATIONS 

XIMA. Composition d'images sur MINITEL. 

Il permet de composer, à partir d'un clavier- 
écran normal, une image d'écran MINITEL et 
de la stocker dans un fichier. 

XMES. Messagerie 

Les messages individuels et collectifs sont stoc- 
kés par destinataire jusqu'à ce que ce dernier 
en ait eu connaissance. 


XDOC. Banque de données à Recherche 
documentaire 

Ce logiciel vise de façon générale à faciliter 
les échanges d'informations dans un groupe de 
personnes concernées par un dommaine com- 

Il gère une centaine de « banques ». Une ban- 
que contient des textes ou des données avec 
des mots clés. Orienté MINITEL, peut s'utili- 
ser avec des écrans normaux. 

Son domaine d'application déborde de la 
recherche documentaire pour traiter par exem- 
ple, l'aide au diagnostic, la gestion de textes 
tels des notes de service, archivage de secré- 
tariat, etc. 

XCOM. Télétraitement. 

A travers un micro-ordinateur local, un pro- 
gramme peut être exécuté sur un autre ordi- 
nateur (éventuellement à distance par 
MODEM) en utilisant l'écran-clavier local, l'im- 
primante locale et les fichiers de deux ordina- 

Indispensable : 

• pour le transfert de fichiers et leurs mises à 
jour dans des sociétés à implantations multi- 
ples. 

• pour le transfert des fichiers sur des maté- 
riels différents (réseau hétérogène). 

• pour la télé-assistance entre l'installateur de 
logiciels et ses clients. 

COMPTABILITE GENERALE 

4 000 INSTALLATIONS DONT PLUSIEURS 
CENTAINES DE CABINETS COMPTABLES. 

La comptabilité MERCURE est multi-dossiers : 
Multi-sociétés tenues simultanément, la durée 
de l'exercice n'est pas limitée à 12 mois. Comp- 
tabilités auxiliaires clients et fournisseurs, fonc- 
tions multi-utilisateurs (saisie des écritures, de 
plan comptable, consultations, édition grand 
livre et balance).. . Les comptes sont créés ou 
modifiés en cours d'année. Numérotation auto- 
matique, solde progressif de chaque pièce, 
journaux : bilan d'ouverture, achats, ventes, 
banques et caisse, opérations diverses, régu- 
larisation et inventaire, centralisation de comp- 
tes à la demande. 

Lettrage manuel ou automatique. Edition des 
comptes, trois options : début de l'exercice, de 
la période, des écritures non lettrées. 
Balance détaillée et balance récapitulative, 
bilan, comptes de résultats avec comparaison 
multi-exercices, clôture, réouverture, nouvel 
exercice. Branchement pour comptabilité 
analytique. Edition claire, facilement lisible sur 
listings pré-imprimés. 

D'une grande simplicité grâce à sa saisie entiè- 
rement conversationnelle, le logiciel de comp- 
tabilité MERCURE ne nécessite pas de connais- 
sance informatique de la part de l'utilisateur. 




GESTION COMMERCIALE 

INSTALLE A PLUS DE 2 000 
EXEMPLAIRES, CE LOGICIEL 
EXTREMEMENT COMPLET, 

REPOND A LA QUASI-TOTALITE 
DES BESOINS DES P.M.E.- 
P.M.I., ETC. 

GESTION DES COMMANDES 

Faire appel aux fichiers clients et articles. Pos- 
sibilité de consultation, modification, suppres- 
sion, édition dune commande saisie. 
Validation totale ou partielle avec gestion des 
reliquats déclenchant la facturation automati- 

: ^ÊÊÊÊÊSSiSÊÊÈI^ÊKÊ^ÊÊÊÊSÊSÊÊÊ 

FACTURATION DIRECTE 

Indépendante du carnet de commande, elle fait 
également appel aux fichiers clients et stocks 
avec mise a jour automatique. 

Possibilité d'éditer des traites. Journal des ven- 


tes automatique avec intégration dans les 
comptes de tiers et produits. 

STATISTIQUES DIVERSES 

Possibilité d'extraire tous types de statistiques 
(représentants, produits, etc.). 

STOCK 

Gestion du stock physique. Edition d'état 
détaillé des mouvements. Consultation, inven- 
taire, valorisation, gestion des entrées et 
sorties. 

Calcul de la marge brute par article et famille. 
Possibilité de connexion avec la comptabilité 
générale. 

PAIE 

PERFORMANTE. 

3 000 INSTALLATIONS DONT UNE 
CENTAINE EN CABINETS COMPTABLES 

La paie MERCURE est mu lti -entreprises, les 
règles de calcul, de comptabilisation et d'édi- 


tion de journal de paie sont entièrement para- 
métrables avec possibilité de modifier les 
règles de calcul de chaque rubrique ou de 
créer de nouvelles rubriques. 

Tous types de paie peuvent être pris en 
compte : abattements (ouvrier, VRP, apprenti), 
bâtiment (intempérie), repos compensateur, 
congés payés, caisse de retraite sans limitation 
de nombre. 

Les fonctions réalisées sont : Gestion de 
fichiers, entreprise et salariés, calcul et édi- 
tion du bulletin de paie, journaux de paie et 
des opérations diverses, annulation de bulle- 
tin de paie, calcul fictif de paie, liste par mode 
de règlement, DAS, ÂAS,etc.. 

Possibilité de connexion avec la comptabilité 
générale. 



DES LOGICIEL DE GESTION 
ET DEVIS POUR ELECTRICIENS. 

La Fédération Nationale de l'équipement 
électrique a conçu des logiciels pour assurer 
toutes les fonctions informatiques d'une entre- 
prise d'équipement électrique. 

Ces logiciels sont mis gratuitement à la dispo- 
sition des entreprises affilliées FNEE, qui ne 
payent que des frais d'installation, et sont en 
permanence tenus à jour. 

LEURS FONCTIONS : 

1. Paye 

2 . Comptabilité 

3. Prix de revient, gestion des chantiers 


4. Facturation 

5. Devis 

Ces logiciels se caractérisent par leur inter- 
communication et diminuent sensiblement le 
volume des saisies ainsi qu'évitent les erreurs 
dues aux reports manuels d'écriture. 



1 


Suivi 

de 

chantier 


LOGICIELS 


S.A.V. 


t: Programme 1. Paye 

• Gestion des salaires 

• Paye « ouvriers » par simple saisie de feuil- 
les d'heure 

• Imputation automatique 
Programme 2. Comptabilité-gestion 

Ce programme assure la fourniture des docu- 
ments nécessaires à la comptabilité générale 
du plan comptable 1982 et est caractérisé par 
f la rapidité de saisie des fichiers clients et 
j fournisseurs. 

t Il assure aussi la possibilité de comparer mois 
i par mois ses prévisions avec la réalité des 
comptes comptables. 

• Analytique : 

Permet lors de la saisie des factures fournis- 
seur de donner un numéro de chantier permet- 
j tant ainsi l'affectation de toutes factures direc- 
;; tement sur les comptes chantier. 

Programme 3. Prix de revient-gestion des 
chantiers 

Logiciel rassemblant toutes les données analy- 
tiques pour sortir un compte chantier 
comprenant : 

•nombre d'heures et leur coût 

• débours matière 

• total des débours 

• frais indirects imputés au prorata des heures 

• facturation 

• écarts 

Programme 4. Facturation 

• édition de l'entête client 

! fe • enregistrement montant HT 

•calcul TVA et du TCC 
• comptabilité 
Programme 5. Devis 
• une codification article 
• désignation 
• mention du fournisseur 
• mention du produit 
• mention du temps de pose 
• 3 volumes de prix. 


EXPERTISE AUTOMOBILE 

FONCTIONAUTES 

• Enregistrements des dossiers, interrogation 

• Editiondes convocations • Liste des sessions 

• Saisie des rapports et impression • Listes des 
pièces détachées • Notes d'information 

• Chiffrage et impression des honoraires 

• Editions des relevés et saisie des règlements 

• Statistiques dossiers non traités • Entrées et 
sorties périodiques • Archivage • Modification 
des références • Fichier des pièces détachées 

FACTURATION GENERALE 

i 

FONCTIONAUTES 

Logiciel de la facturation en liaison aux fichiers 
clients et articles. 


Il assure la facturation en temps différé, le jour- 
nal des ventes, l'inventaire en quantité et en 
valeur. 

Liaison avec la comptabilité lors du journal des 
ventes 

OPTION : 

Gestion des commandes 
Les commandes sont enregistrées en mode con- 
versationnel. Le carnet de commande interrogé 
par client, par article. Les commandes sont fac- 
turées automatiquement. 

GESTION DE PRODUCTION 

FONCTIONAUTES 
Description : 

Gestion des fichiers : 

• Matière première avec valorisation et four- 
nisseur • Pièces détachées avec matière usi- 
nage et sous traitance • Fournitures extérieu- 
res avec prix achat et prix vente • Sous ensem- 
ble, ensemble, client et entreprise 

Suivi de la fabrication suivant : 

• Fabrication pièces détachées • Fabrication 
des sous ensembles • Saisie des commandes 
d'ensembles 

Pour chacune de ces phases : 

• Lancement, entrée en stock et liste 

• Facturation et journal des ventes 

GESTION DE CHANTIERS 

FONCTIONAUTES 

• Création du fichier Chantiers • Saisie des 
mouvements avec édition sur option de la com- 
mande fournisseur • Gestion du fichier tarif 

• Gestion du fichier fournisseur • Saisie et édi- 
tion des devis • Saisie en version société 

• Saisie en version client 


FONCTIONAUTES 

• Saisie des appels (fichier client) • Edition des 
appels • Saisie des causes de panne 

• Consultation de l'historique par appareil et 
édition • Liaison avec la facturation gestion de 
stock • Liaison avec la comptabilité 

CABINETS DENTAIRES 

FONCTIONAUTES 

• Gestion du fichier client avec passe médi- 
cale, contre indications, shéma dentaire 

• Saisie des soins, des travaux de prothèse, des 
travaux ODF, des acomptes de règlements 

• Impression feuille de SS, fiche de soins, de 
prothèse, ODF, et devis • Gestion automati- 
que du tiers payant • Gestion des impayés et 
relancés • Gestion du secrétariat • Fonction 
agenda et fonction courrier • Gestion comp- 
table • Gestion administrative 

CABINETS VETERINAIRES 

FONCTIONAUTES 

• Suivi fiche client • Edition historique par ani- 
mal • Lettre de rappel date de vaccin 

• Editions et relance des impayés • Suivi des 
règlements • Gestion du fichier client 

• Edition journal des ventes • Traitement 
comptabilité 




L'EPF 1 500 et un périphérique intelligent con- 
nectable sur le PC 1 500. Ce produit est un pro- 
grammateur d'EPROM utilisable comme une 
mémoire de masse au même titre qu'une dis- 
quette. Le temps de chargement est cependant 


inférieur à celui d'une disquette. Cette fonction 
permet à l'utilisateur de constituer une biblio- 
thèque de programmes BASIC ou LM, ou de 
fichiers sur silicium ; support de faible coût et 
résistant aux environnements sévères. Dans un 
autre contexte, l'EPF 1 500 est capable de géné- 
rer des textes hexadécimaux grâce à son édi- 
teur et de les transcrire sur une EPROM servant 
par exemple de générateur de caractères, de 
moniteur, de générateur de systèmes automa- 
tes, etc. L'EPF 1 500 connecte l'EPROM direc- 
tement sur le bus du microprocesseur, les 
mémoires utilisables sont: 27128, 2764, 
2732A, 2732, 2716. La connection est possi- 


ble avec un PC 1 500 OU 1 500A muni ou non 
de l'interface CE 1 50. Un jeu d'instructions 
BASIC spécifiques permet une manipulation très 
simple de ce programmateur. 






Le programme PC BLUES est un 
programme de création musi- 
cale. Il est étonnant de l'enten- 
dre jouer une partition, le résu j- 
tat est vraiment supeibe. D'ori- 
gine ce programme ne pouvait 
sortir des sons que sur le nuaer. 


ce aui donnait de très bons 
résultats, mais le niveau sonore 
était un peu faible, c'est pour- 
quoi il a été adapté sur le haut- 
parleur d'un magnéto, et le 
résultat est fantastique i 


Le programme se compose de deux parties, la 
première permet de rentrer une partition. Elle 
est identique dans tous les cas. C'est la 
seconde qui sera modifiée selon le besoin. La 
version sur le LISTING 1 permet de sortir le son 


sur le buzzer du PC-1 500. Si vous modifiez le 
LISTING 1 en tapant le 2, vous allez sortir le 
son sur un haut-parleur externe, on est obligé 
de réécrire le programme qui gère le BEEP pour 
faire sortir le son sur la sortie EAR. Il faudra 
alors brancher le PC-1 500 sur le CE-1 50, bran- 
cher un des cordons sur la prise EAR du CE-1 50 
et l'autre côté du cordon sur la prise MIC du 
magnétophone que l'on mettra en mode PLAY, 
en réglant le son et la tonalité en médium. On 
l'utilisera comme le précédent pour sortir le 
son. 

Avant de taper le programme, faites un NEW 
PEEK & 7864*256-2000. 

Tapez ces données pour avoir un exemple de 
différentes musiques (LISTING 3). Pour avoir 


accès à cette nouvelle fonction à partir du 
basic, tapez, après avoir fait NEW PEEK & 
7863*256+&1C5 en mode PRO, le pro- 
gramme du LISTING 4, et faites RUN, il se char- 
gera automatiquement. Pour avoir accès à la 
nouvelle fonction : DEF P. 

Il y a alors deux possibilités suivant que vous 
avez une ancienne ou une nouvelle ROM : 

• clavier sonorisé - nouvelle ROM (en BEE- 
PON et sur imprimante) DEF P affichera PLAY. 

• clavier non sonorisé - ancienne ROM tapez 
sur la touche ! qui est affectée automatique- 
ment puis faites DEFP qui affichera PLAY. 

La syntaxe de cette nouvelle instruction est : 
PLAY, n, f, d les paramètres sont à rapprocher 
de BEEP n,f,d, 
où f est la fréquence 0-255 




X 


d est la durée 0-65535 
et n, est le nombre de BEEP 0-65535 
Vous remarquerez que la fonction LIST a dis- 
paru puisque PLAY a le même code qu'elle. 
Pour y avoir quand même accès, faites : OPN 
ENTER 

LIST n ou L.n comme d'habitude. 

Voici enfin un exemple de musique gérée par 
le basic pour admirer la différence : 

DEF A - sortie sur le buzzer 
DEF B - sortie sur le magnéto 
LISTING 5 

Pour le commander en langage machine : 


Si vous avez un PC-1 500 ancienne ROM, 
ON-OFF affichera : 

NEW 0 : CHECK 
n'en tenez pas compte, tapez : 

CL 

puis I pour initialiser 

MODE D'EMPLOI DE PC BLUES 

NEW PEEK&7864* 256-2000 
Charger ou taper le programme 
CLEAR ENTER 
DEF A 

* affichage note ? 


touche : 


SHIFT SI 

! 

DO 

n 

RE 

a 

Ml - 

$ 

FA 

% 

SOL 

& 

LA 


M 32 1.51.5 ^ 

correspond à la durée \/sy K 7 
^SHIFT ! " Il $ 9 8 DEftOFF/ 1 * * * * * 7 8 
* BASSE - MEDIUM --AIGU 
!"//$%& OFF 
DEFS 


un 


BASIC 

buzzer 

) haut-parleur externe 

BEEP 1 
BEEP 1,UI 
BEEP 1,UI,X 

SPJ&E669 

SPJ&E66B 

SPJ&E66F 

SPJ[PEEK&7863-I)*256 + 1] 
SPJ [PEEK&7863-I) * 256 + 3] 
SPJ [PEEK&7863-I) * 256 + 7] 


Sauvegarde des notes sur cassette 
DEFL 

Rechargement des notes 
RUN 

Sortie des notes sur le buzzer 


ASTUCE 

Pour rendre compatible GALACTICA de 
APSOFT avec la sortie de son sur magnéto- 
phone externe, faites après chargement : 


POKE PEEK&7863* 256 + &3F6,&BO,&OE, 1 
POKE 

PEEK&7863*256+&3FD,&BO,&OE,&FE 
et faites le branchement indiqué dans l'article 
PC BLUES M. La voix sortira sur le haut-parleur. 


Pour avoir un meilleur rendu sonore, il semble 
préférable de faire : 

POKE PEEK&7863*256 + &3F9,&38,&38 et 
de mettre la tonalité sur le grave et le son au 
maximum. 
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1 "P "REM LDUTTER Michel 

| ^ n PDKE 29008 , &68 - PEEK 8,7863 , 8,68 , &C5 , &25 , 8,89 , 8,0 1 , 8,98 

w PDKE 290 1 6 , &G8 , &64 , 8,25 , .889 ,801,898 , 808 , 8,64 , 825 , 838 

7,4 PDKE 29026, 889, 60 1,898, &FD, 888, 828, &BE , &E6 , &6F 

PDKE 29035 , 862 > &BE , &E6 , 86F , 662 , &BE , &E6 , 86F 

PDKE 29043 , 8,60 , 6EE ,8E6, 86F , 862 , 8BE , 8,E6 ,86F 

PDKE 2905 1 , &FH , 8,28 , 6EE , 6E4 , 85 1 , 8,8E , 801 , 8,98 , 8,64 , &9E ,50 

8 W8IT OsPRINT "PC. ELUES"? 

10 C8LL 29008! END 

8"W8IT OiCLS * IF X<PEEK &7863+256+&C5LET X-PEEK 67863*256+8,05 

51 IF P=OLET P=1 

52 PRINT 8*?L? M 

53 GPRINT "0000FFFF3FFFFF5FFFFF6FFFFF77FFFF7BFFFF7DFFFF7EFFFF”; 

54 PRIHT " not e?" ï s ON ERRDR GDTD 200 

55 BEEP 1,4,5:8$«INKEY* : IF 8*=""GDTD 55 

56 GDSUE ( 8SC 8* >+56: PRINT -8*5 s BEEP 1,E,90:GDTD 80 

57 E=81ïT=99i8»="Sr , :RETURN 

73 E»154«T»52»8*«"DD"iRETURN 

74 E=137s T =59 s 8$= "RE " s RETURN 

75 E=122: T=66: 8*="MI " * RETURN 

76 E=1 15: T=70:8*="F8": RETURN 

77 E= 1 02 :T=78:8*="S0L": RETURN 

78 E=91 : T=88: 8$="L8" : RETURN 

80 IF P«. 95CLS : PRINT "# 4 « 3 » 2 1.5 1 # .5"? 

81 IF P=1CLS SPRINT " 4 3 2 1.5 1 .5"; 

84 DN ERRDR GDTD 201 

85 EEEP 1, 1, lsC*=INKEY* s IF C#=""GDTD 85 

86 IF 8SC C*=27LET P=. 95: GDTD 80 

87 IF 8SC C*=15LET P- 1: GDTD 80 

90 GDSUE (8SC C* )+90: GDTD 130 

91 L=. 25: RETURN 

107 L=4: RETURN 

108 L=3 : RETURN 

109 L=2: RETURN 

110 L.= 1.5: RETURN 

111 L=1 s RETURN 

112 L=. 5: RETURN 

130 EEEP 1 , E, 50: CLS : PRINT " B8SSE MEDIUM 8IGU": 

131 BEEP 1,1,1 :E*=INKEY$ : IF E4 ; =" "GDTD 131 

132 IF <E$=CHR$ 20 ÏDR ( E*=CHR$ 19 1LET M=1 : GDTD 140 

133 IF E*=CHR* 15LET M». 25: GDTD 140 

134 IF E*=CHR$ 22LET M= . 5 s GDTD 140 

135 IF E*=CHR* 17LET M=1.5:GDTD 140 

136 CLS SPRINT "ERREUR !" 5 : EEEP 1,60, 300 :CLS : GDTD 130 

140 EEEP 1,E, 10 

141 E-I NT ( F'+E+M ) : H= I NT < T+L+ ( 1 .'"M ) ) : H=H+ . 5 : D=H -"255 : W= I NT O : Z= I NT { C D-W )*255 > 

142 REM W8IT 40:PRINT E? " "SW+15" "SZ:W8IT 0 

150 PDKE X , Z , W+ 1,E, 0,0,0: X=X+3 : I F X+5>«PEEK 8,7865+256+PEEK 67866EEEP 5:W8IT ■: 
R INT "FULL UP" : END 
152 GDTD "8" 

1 80 "S" EEEP 1 , 200 , 200 : CLS : W8 1 T O : PR I NT " CS8U I NG PC ELUES " *, 

181 PRINT #"PC ELUES" SX 

182 BEEP 1,200, 800 : CS8UE M"PC ELUES" f PEEK 8, 7863+256+8, C5, X+ 1 

200 CLS : PRINT "ERREUR ! " 5 : EEEP 1 , 70, 400: GDTD 52 

201 CLS SPRINT "ERRDJR ! " 5 : BEEP 1 , 60, 300: GDTD 80 

500 "L"W8IT 0 s BEEP 1 SPRINT "LD8D PC ELUES" 

501 INPUT «SXSCLD8D MPEEK &7863+256+8C5: END 


1 "P" REM LDUTTER Michel 

2 W8IT OsPRINT "PC. ELUES" ? : RESTDRE 30: 8=1 PEEK &78BE-128 Ï+256+PEEK 878EF+1 

3 PDKE 87750 , 8,68 , PEEK 87863 , 868 , &C5 , 825 , 8,89 , 8,0 1,898 

4 PDKE 8,7758 , 808 , 864 , 825 , 8,89 , 80 1 , 898 , 808 , 864 , 825 , 838 

5 PDKE 87762 , 8,89 , 80 1 , 898 , 6F D , 888 , 828 , 8EE , R.-' 256 , ROND 8FF 

6 PDKE 8776B , 8,62 , &BE , R.' 256 , RRND 8, FF , 862 , &BE , 0.--256 , RRND 8FF 

7 POKE 87773 , 860 , 8EE , R.--256 , RRND 8FF , 862, 8BE , 8 '-256 . RRND 8FF 

8 PDKE &777B,£FD,£2h,8BE,8E4,851,88B.801.ê9 h ,664,& c 'E.50 

1 0 PDKE 8 , 8F D , 898 , 8FD , 888 , 8FD , 888 , 858 , &E0 , 858 , 80E , 824 , 828 , &B5 , 80 1 , 8FD , & 1 E , 884 

1 i PDI E h+ 1 7 - & 2 h , & 88 . £ 02 , SFD- £ ED , 8 FO , £ OE , 8 03 , £ 8 e * . £ 1 4 . £ 46 , £ 84 . 88E , £ 1 0 , £ E5 , £ OO 
t - PI'H F 8+33, &FD, &1E, 884, 828,888,802, 868, 801 , 888,802, 849, &FF, &9E, 823, 8FD- 828, 


UST\UG 3 


ENTER 

ENTER 

ENTER 

ENTER 

ENTER 

ENTER 

ENTER 


8-PEEK 67863+256 ENTER 

PDKE 8+197, 16,1,137,30,1,68,23,1,91,18,1,115,23,1,91,18 
PDKE 8+213,1,115, 16, 1 , 137, 23, 1 , 91 , 18, 1 , 1 15, 16,1,137, 18, 1 
PDKE 8+229,115,23,1,91,30, 1,68, 16,1,137,30,1,68,23, 1,91 
PDKE 8+245, 18,1,1 15,23, 1,91,18,1,115,16,1, 137,23, 1,91,18 
PDKE 8+261,1,115, 16,1,137, 18,1, 115,23,1,91,30,1,68, 16, 1 
PDKE 8+277, 137,30, 1,68,23, 1,91, 18, 1, 115,23, 1,91, 18, 1, 115 
PDKE 8+293, 16,1,137,23, 1,91,18,1,115, 16,1,137, 18,1,115,23 
PDKE 8+309, 1,91,30, 1,68, 16, 1, 137,30, 1,68,23, 1,91, 18, 1 ENTER 
PDKE 8+325,115,23,1,91,18,1,115,16,1,137,30,1,68,27,1,77 ENTER 

PDKE 8+341 ,30, 1,68, 23, 1,91,18,1,1 15, 23, 1,91,30, 1 , 137, 30 ENTER 
PDKE 8+357,1,68,23,1,91,30,1,68,23,1,91,18,1,115,23,1 ENTER 

PDKE 8+373,91,30, 1 , 137, 30, 1 , 68, 34, 1 , 61 , 36, 1 , 57, 34, 1 , 61 ENTER 

PDKE 8+389,36, 1,57, 30, 1 , 68, 34,1,61, 30, 1 , 68,34, 1,61,27 ENTER 

PDKE 8+405, 1,77,30, 1,68,27, 1,77,30, 1,68,23, 1,91,30, 1 ENTER 
PDKE 8+421,68,27, 1,77,27, 1,77,30, 1,68,23,1,91, 18,1, 115 ENTER 

PDKE 8+437,23,1,91,30,1,137,30,1,68,23,1,91,30,1,68,23 ENTER 

PDKE 8+453, 1,91, 18, 1, 115,23, 1,91,30, 1, 137,30, 1,68,34, 1 ENTER 

PDKE 8+469,61,36, 1,57,34, 1,61,36, 1,57,30, 1,68,34, 1,61 ENTER 

PDKE 8+485,30, 1,68,34, 1,61,27, 1,77,30, 1,68,27, 1,77,30 ENTER ' 

PDKE 8+501,1,68,34,1,61,36,1,57,40,1,102,59,1,102,27,1 ENTER 

PDKE 8+517,77,53, 1,77,50,1,81,36,1,81,36,1,115,54,1,115 ENTER 
PDKE 8+533,23, 1,91 , 45, 1,91, 15, 1 , 102,34, 1 ,122, 45, 1,91, 40 ENTER 
PDKE 8+549,1,102,40,1,102,7,1,115,36,1,115,34,1,122,30,1 ENTER 

PDKE 8+565,137,45,1,91, 15,1, 102,40,1, 102,59, 1,102,27,1,77 ENTER 
PDKE 8+581 , 53, 1 , 77, 50, 1 , 81 , 36, 1,81,36,1,115, 54, 1,115,23 ENTER 
PDKE 8+597, 1,91,45, 1,91, 15, 1, 102,34, 1, 122,45, 1,91,40, 1 ENTER 


PDKE 8+613, 102,40, 1 ,102,7, 1,115,36,1,1 15,34, 1, 122,30, 1,137 


ENTER 


PDKE 8+629,45, 1,91,15,1, 102,3, 1,61,60, 1,68,53, 1,77,50 ENTER 

PDKE 8+645, 1 ,81 , 45, 1 , 91 , 55, 1 , 68,60, 1 , 68,53, 1,77, 50, 1 ENTER 
PDKE 8+661 , 81 , 45, 1 ,91 , 40, 1 , 102,41 , 1 , 77, 3, 1,61, 53, 1 , 77 ENTER 

PDKE 8+677,40, 1. 102,36, 1, 115,55, 1,68,60, 1,68,3, 1,91,26 ENTER 
PDKE 8+693,1,81,60,1,68,41,1,77,3,1,61,60,1,68,53,1 ENTER 
PDKE 8+709 ,77,50,1,81,45,1,91,55,1 , 68 ,60,1, 68 ,53,1 , 77 ENTER 

PDKE 8+725,45, 1,91,45, 1,91,40,1, 102,41, 1,77,3, 1,61,53 ENTER 

PDKE 8+741, 1,77,40, 1, 102,36, 1, 115,55, 1,68,60, 1,68,36, 1 ENTER 
PDKE 8+757,61,30, 1 , 68, 60, 1 , 68, 41 , 1 , 77, 27, 1 , 154, 1 6, 1 , 137 ENTER 
PDKE 8+773, 18, 1 , 1 15, 17,1, 122, 16, 1 , 137,40, 1 , 102,40, 1 , 102,20 ENTER 
PDKE 8+789, 1, 102,23, 1,91, 17, 1,122,18, 1, 11.5,30, l ,137-,30, T ENTER 
PDKE 8+805, 137, 16, 1,137, 18, 1, 115, 17,1, 122, 16, 1, 137,27, 1,154 ENTER 
PDKE 8+821,53, 1 , 77, 40, 1 , 102, 34, 1 , 122, 27, 1 , 154, 16, 1 , 137, 18 ENTER 
PDKE 8+837 ,1,115, 17,1,122, 16,1,137,40,1,102,40,1,1 02 , 20 , 1 ENTER 

PDKE 8+853, 102,23, 1,91, 17, 1, 122, 18, 1, 115,30, 1, 137,30, 1, 137 ENTER 



POKE 9+869, 16, 1 , 137, 18, 1 , 1 15, 17, 1 , 122,16, 1 , 137, 14, 1 , 154, 20 
POKE 9+885, 1, 102, 16, 1,137, 17, 1, 122,27, 1, 154,27, 1, 154,27, 1 
POKE 9+901 , 154, 34, 1 , 121 , 30, 1,136,27,1, 154, 36,1,115,40,1, 102 
PDKE A+917,25, 1,91,7, 1, 115,45, 1, 137, 17, 1 , 122,36, 1,115,34 I 
PDKE A+933, 1, 122,36, 1 , 1 15,30, 1,137,53,1, 154,59, 1 , 136,40, 1 
PDKE A+949, 154, 17, 1, 121,30, 1, 136,27, 1, 154,36,1, 115,40, 1,102 
PDKE 9+965,45, 1,91,40, 1, 102,54,1,115, 18,1,115,40,1,102,40 
PDKE 9+981 , 1, 102,36, 1 , 1 15,34, 1 , 122,42, 1, 115,27,1, 154,27,1 
PDKE A+997, 154,27, 1,154,30, 1, 137,27, 1, 154,34,1, 121,27, 1, 153 
PDKE 9+1013, 27, 1, 154,27, 1, 154,36, 1, 115,40,1, 102,45, 1,91,45 
PDKE 9+1029, 1,91,45,1,91,40,1,102,36,1,115,36,1,115,34,1 
PDKE 8+ 1 045, 122,30, 1~, 137,30, 1, 137,30, 1, 137,54, 1, 115,34, 1, 122 
POKE 9+1061,36, 1 , 1 15, 30, 1 , 137,27, 1 , 154, 30, 1, 137,30, 1,137,27 
PDKE A+1077, 1, 154,34, 1, 121,30, 1,136,27,1, 154,27, 1, 154,27, 1 
PDKE 9+1093,154,30, 1, 137,30, 1, 137,27, 1, 154,34, 1, 121,30, 1, 136 
PDKE 9+1 109,27, 1 , 154,36, 1 , 1 15,40, 1 , 102,45, 1,91 ,45, 1,91,45 
PDKE 9+1 125,1,91,40, 1,102,54, 1,115,18,1,115,40,1, 102,40, 1 
PDKE 9+1 141,102,36, 1,115,34,1,122,42,1,115, 14,1,154, 16, 1, 137 
PDKE 9+1 157, 17, 1 , 122,20, 1 , 102,20, 1 , 102,23, 1,91 ,20, 1, 102, 17 
PDKE 9+1173, 1, 122, 14, 1, 154, 16, 1, 137, 17,1,122, 17, 1,122, 16, 1 
PDKF 9+1 1 89 , 137, 14,1,154, 30, 1,137,14,1, 154, 16,1 , 137, 17,1,122 
PDKE 9+ 1 205 , 20 ,1,102, 20 ,1,1 02 ,23,1,91 , 20 ,1,1 02 ,17,1,1 22 , 1 4 
PDKE 9+1221, 1 , 154, 16, 1, 137, 17, 1, 122, 17, 1, 122, 16, 1, 137, 16, 1 
PDKE 9+1237, 137, 27, 1,154,36,1,115, 36, 1,115,23,1,91,45,1,91 
PDKE 9+ 1 253 , 23 , 1,91, 20 ,1,1 02 , 20 , 1 , .1 02 ,17,1,122,14,1, 1 54 , 30 
PDKE 9+1269,1, 137, 14,1,154, 16,1, 137, 17,1,122,20,1,1 02 , 20 , 1 
PDKE 9+1285, 102,23, 1,91 ,20, 1,102,17,1,122,14,1,154,16,1,137 
POKE 9+ 130 1,17, 1,1 22, 17, 1,1 22, 16, 1,1 37, 16, 1,1 37, 27, 1,1 54, 17 
POKE 9+1317, 1, 122, 17, 1, 122, 20, 1 , 102,17, 1 , 122, 17, 1 , 122,40, 1 

PDKE 9+1349,23, 1,91, 20, 1,1 02, 16, 1,1 37, 17, 1,1 22, 18, 1,115, 16 
PDKE 9+1365, 1 , 137, 16, 1 , 137, 17, 1 , 122,36, 1 , 1 15, 16, 1 , 137, 18, 1 
PDKE 9+ 1 38 1 1 1 5 , 26 , 1,81,23, 1,91,20,1, 1 02 ,26,1,81,53,1,77 
PDKE 9+1397, 14, 1 , 1.54, 14, 1 , 154,27, 1 , 77, 23,1,91,18,1,1 15,40 
PDKE 9+ 1413, 1,1 02, 17, 1,1 22, 14, 1,1 54, 18, 1,115, 20,1, 102,23, 1 
PDKE 9+1429,91 ,40, 1 , 102, 14,1,154,14,1, 154, 23,1,91,18,1,115 
PDKE 9+1445,40, 1 , 102, 17, 1 , 122, 14,1,154, 18,1,115, 17,1, 122, 16 
PDKE 9+ 1461,1,1 37 ,27,1,1 54 , 20 ,1,1 02 , 40 ,1,102, 20 ,1,1 02 ,17,1 
PDKE. 9+1477, 122,18,1,115,20,1, 102,23, 1,91,26,1,81,27,1,77 
PDKE 9+1493, 23,1, 91 , 26, 1,81, 20, 1 , 102, 36, 1 , 115, 36,1, ; 15, 30 


91,20, 1, 102, 17 
:, 17, 1, 122, 16, 1 


ENTER 
ENTER 
ENTER 
ENTER 
ENTER 
ENTER 
ENTER 
ENTER 
ENTER 
ENTER 
ENTER 
; ENTER 

ENTER 
ENTER 
i ENTER 

ENTER 
ENTER 
? ENTER 

ENTER 
ENTER 


PDKE 9+1445,40,1 
PDKE 9+ 1461,1,1 3 
PDKE. 9+1477,122, 
PDKE 9+1493,23, 1 
PDKE 9+1509, 1,68 
PDKE 9+1525,68,2 
PDKE 9+1541,20,1 
PDKE 9+1557,1,10 
PDKE 9+1573,91,2 
PDKE 9+1589,36,1 
PDKE 9+1605,1,61 
PDKE 9+1621,81,2 
PDKE 9+ 1 637 , 27 , 1 
PDKE 9+1653,1,68 
PDKE 9+1669,91,2 
PDKE 9+1685,26,1 


, 102 , 20 , 1 , 
1,26, 1,81, 
6. 1, 115,36 


là^'^^eïSNTER:: 

4 ENTER 

1 ENTER 

1 ENTER 

0 ENTER 

1 ENTER 

37 ENTER 

1 7 ENTER 

.1. ENTER 

ENTER 

6 ENTER 

1 ENTER 

ENTER 

1 ENTER 

5 ENTER 

16 ENTER 

1 ENTER 

ENTER 
i ENTER 
ENTER 
ENTER 

40 ENTER 

1 ENTER 

ENTER 
ENTER 
ENTER 

L‘2 ENTER 

ENTER 
ENTER 

ENTER 




1 0 DATA &55 , 86A , 808 , 848, 80 1 ,-84A, 890 , ÊFD , 898 , 8FD ,8=88 , 8F D , 8 A8 , 8:58 , 8BG , 859 , 2075 
20 DATA 80E , 824 , 828 , 8:B5 , 8.0 1 , &FD , 8- 1 E , 8:A4 , 8:29 , 8:88 , 802 , S:FD , &ED , &F0 , 8=0B , 8:03 , 1 643 
30 DATA 889,814, 8:46 , 884 , 88B , 8 1 0 , 8B5 , 800 , 8FD , 8 1 E , &A4 , 82 A , 888 , 802 , 86A , 80 1,1429 
40 DATA 888 , 802 , 849 , &FF , 89E , 823 , 8FD , 82A , 8BA , 8E5 , 8AF , 8B5, 800 , 8AE , 878 , 863 ,2118 
50 DATA 8BE , 6E2 , 84A , 82A , 848 , 80 1 , 84A ,810, 8BE , 828 , 807 , 86È , 80F , 889 , 803, 8BA, 1383 


i DATA 8E3 ,83F, 88E , 88D , 8B4 , 850 , f- 
i DATA 800 , 800 , 800 , 800 , 800 , 800 , 8 
i DATA 880, 8ED, 879,80 1,880, 889, 8 
i DATA 8FD , SA© , 8C8 , 82D , 8B5 , 8FF , S 
) DATA 8BE , 828 ,801, &FB , 82A , 889 , « 
i DATA 868, 800,869, 806, &CD, SAC , i 
) DATA 8 1 E , 8C4 , 82C , 82C , &DE , 829 , f. 
i DATA 80 1 , 84A , 890 , &8E ,810 , 8C4 , ï 
) DATA SOF , 8FD , 80A , 8FD , 840 , &B5 , f. 
) DATA &E4 , 86E , 890 , 889 , 805 , 8B5 , i 
) DATA 663 , &B5 , 820 , SAE , 879 , 8D 1 , « 
ï I =PEEK 87863*256 !J=(PEEK 8786: 
? F DR A=OTQ &C4: PDKE .J+A,PEEK l. . 
) C=0 s FDR I = ITO 1 + 15: READ A:C=C- 

) IF AO970GDTD 180 
J A=PEEK 87863: I=A+256: B=9.'- 2: A=t 
) PDKE I +8.-3C , A : PDKE I+8ED,A 
!i PDKE I +8E6 , B : PDKE I+6F2,E 

I PDKE 1+8.49, A- 1: PDKE I+S5B,A-1 
:i PDKE I +89 1 , A- 1 : PDKE I+8AD,A-1 
!i IF PEEK &E2B9=83SP0KE 8785B.-A- 
5 PDKE A+256-+88 , 32 , ASC " I " , ASC 

II PDKE A+256+822,0 
3 PDKE 9*256+830,0 

3 PDKE 9*256+856 , 1 , 8F 1 , 88A , 828 , i 

3 PDKE 9*256+866 , 835 , 836 , 82B , 82> 
3 CALL (9-1 :i*256+8EC:END 
3 " ERR " PR I NT "ERREUR EN" ? L: END 


840.841 .859.8 

800.800.800.8 
869, 8ED, 87A, 8 
8FD , 62A , 8FD , 8 
842, 866, 624, 8 
89E , 8: 1 B , &A5 , & 

■ 8 DO, 808, 826,8 
&2C ,818, 8DE , 8 
. 800 , 89E , 853 , 8 
814, SAE, 879, 8 
.899,800,800,8 
j-3+ 1 3*256: L=0 
:i+A3:NEXT A 
l:+ A s PDKE I , A : h 


1,828, 860, &D0, 800, S 
i , 800 , 8DE ,871, 8D2 , >i 
i , &8B , 8:63 , 8:D0 , 800 , ï 
t , 6FD , 898 , 8 1 4 , 88B , ? 
> , 8A4 , 88B , 8: 3 B , 8F D , I 
: , 82A , 8BE , 828 , 807 , ! 
: , 878 , 878 , 808 , 806 , ! 
3, 802, SI 2, &FD, 898, ! 
3 , 80D , 8A2 , 856 , 6E2 , î 
I- , 8:9A , SB5 , 800 , 8.AE , ï 
3 , 800 , 800 , 800 , 800 , > 


NEXT I : L=l_+10: READ A: IF 


1 , 83B : PDKE S79D4 , 85 : END 


8:F 1 , &6F, 8:26, 8:37, 838, 836, 833, 82D, 831 , 


i $0* ' 


10 " 9 " RESTORE : BEER DN , , 

20 DATA 1 42 , 300 [ 1 26 , 250 142, 300 j 1 69 , 600 j I 42 , 300 

30 DATA 300, 79, 400,93,250, 112, 200, 105, 6 O 1 ■ 92, SOC 
0,105 

40 DATA 300 ,142, 800 , 1 05 , 400 ,142, 350 , 1 69 , 20i ■ 142, 
42 

50 DATA 600 , 1 26 ,350,126,300,1 05 , 400 ,112, 300 , 126, 
69,600 

60 DATA 93 ,300,93, 300 , 79 , 300 ,93, 300 ,112, 300 , 1 05 .- 
5,200 

70 DATA 112, 200 ,126, 200 ,142, 300 , 1 26 , 200 , 1 42 , 200 : 


200, 169, 600, 105, 300, 142, 200, 169, 2 


80 DATA 1 42 , 300 , 1 60 , 200 ,192, 200 ,215,1 000 
90 DN ERRDR GDTD 110: READ A, B: BEEP 1 , A, B: GDTD 90 
110 END 

120 "B"RESTDRE : BEEP DF F 

130 DN ERRDR GDTD 140: READ A , B : PL. A Y l,9,B:uDT0 130 
140 'END ■■■::. 


ST ILLE NACHT AUTEUR: FREDERIC uUVDN 


MYSTERE 


Lors de la mise au point du programme 
PC BLUESM, il est apparu un phénomène assez 
étrange. 

Alors que le temps d'exécution du programme 
en langage machine prend exactement la même 
durée qu'il soit en ROM (adresse > &8000) ou 
en RAM normalement pour le basic 
(adresse < &7000), son temps d'exécution est 
doublé s'il se trouve dans la MEV système 
(adresse >&7000 et < &7C00) 


EXEMPLE : 

Mise à zéro de la zone [&8000-&FFFF] 255 fois 

RAM ou ROM 110 secondes 

RAM système 207 secondes 

Il semblerait que ce soit lié à un temps d'ac- 
cès différent des RAM. 

Notez que l'on peut faire chevaucher un pro- 
gramme entre ces deux zones, et que la durée 
sera un panachage entre la durée en RAM et 
en RAM système. Les instructions peuvent 
même avoir leur code en RAM et leur paramè- 
tre en RAM système, donc en temps d'exécu- 
tion encore différent. 


EXEMPLE : 

La moitié du programme précédent en RAM et 
en RAM système 1 56 secondes. 

Marc GIRONDOT 



2 types de RAM 



Après le chargement faîtes : 

RUN 

Répondre au nombre de répétition qui corres- 
pond au nombre de fois où le texte sera écrit. 


Non, LE SHARPENTIER ne se con- 
verti! pas dans les pronostics 
hippiques, par contre ce pro- 
gramme vous permettra de ren- 


dre attrayante votre « CASSEI- 
TOTHEQUE » grâce à la création 
de jaquettes du plus bel effet. 


Répondre 1 si vos styles sont neufs et plus si 
ils sont légèrement usagés. Il est inutile de 
répondre 1 0 000 s'ils sont secs, il vaut mieux 
en changer I 

Donnez les deux lignes à écrire, la 1 étant celle 



du haut. Il ne faut pas plus de 23 caractères 
par ligne. 

La couleur demandée correspond à celle du gra- 
phisme à gauche de la tranche. 

Les corps correspondent au type de lettres. 

CORPS 1 


1 gras 

rouge + bleu 

2 gras 

bleu 

3 vide vertical 

bleu 

4 vide horizontal 

bleu 

5 plein vertical 

bleu 

6 plein horizontal 

bleu 


CORPS2 

bâton noir 

gras noir 

vide vertical - noir 

vide horizontal noir 

plein vertical noir 

plein horizontal noir 


Répondre alors autype de graphisme par A ou 
B. On réservera par exemple le A aux program- 
mes et le B à la musique. 

Nous tenons à remercier, a cette occasion, 
notre SHARPENTIER traducteur KAMINO 


AWACHIKA qui nous fournit une aide précieuse 
pour l'adaptation de tous ces très bons pro- 
grammes Japonnais. 

TITRES SUR CASSETTE 2 

Après avoir décoré la tranche de vos casset- 
tes, c'est la face avant qui sera imprimée cette 
fois. 

DEFZ, répondre aux indications qui vous sont 
demandées et valider comme d'habitude par 
ENTER. 

Vous êtes limités à dix titres par face, mais on 
peut aller jusqu'à 20 en changeant les tests des 
lignes 104 et 161. 


ivre ESSAI P 

P T .! T RE ESSAI B 


A 

T1TLE ESSAI 

R 

TJTLE ESSAI 

«TlflTK noi flEflE 

1—7 okiiFi ENCORE MOI NEnF 


H 

nr 

j#V 6r no1 

D 



1 JEU 1 


2 JEU 2 


1 JEU 3 

2 JEU 4 

3 JEU 5 


2 JEU? 

3 JEU 3 

4 JEU4 

5 FFS 
0 FF 

? ADRFFF 
8 8F 6F 
3 F66F 
18 6F 6F 

1 1 F 66 

12 6FEEEEFOO 

13 0WF 
14FEFEE 
13 EEK6I 
10K6K6K6 
17KK66 
18KFK6J 
13 FJ66H 



ff MATHS 1401 — - 

■ . - ■■■ = 4 PROGRAMMES 


Ml IQ T G! ir ========== 

' ""71 

, 1 lüJ I blUL - 

QR Q 

.. " 

jy, o 

C=\ f i == — s---' ■ ~ ' — ' , , ■■ i i 

\w § y t ^ y i 

PPr- 1 ' 

| 

i 

ry 4 d ^ y 


3 CLEAR »GRAPH ID1M X#( 1 >*23i INPUT H R»P«tltlon? H lRiFOR A-1TO 3 
8 INPUT "TITRE1 "»X*(0 )i INPUT "TITRE2 "JX*( 1 )sB»LEN X*(0)iC=LEN X* 

II) . ■ ■ ■ ■ ■ 

7 INPUT "COULEUR "S Cl s INPUT " CORPS 1=" 5HsG=3s INPUT "C0RPS2-" î J s INPU 
T "G. (A^BV’IA* 

10 N-llRDTATE lîCSIZE 3 

20 LINE (0,0 )-( 65, -505 1,0,0, Bs LINE ( 3, -3 )-( 62, -502 ), 0, 1 ,B 
30 XI-7IY1— 7IX2-38IV2— 7IX3-58I Y3— 581X4-71 Y4— 58 
40 LINE (XI ,Y1 )- ( X2 , Y2 1— ( X3 , Y3 )-(X4,Y4 )-(Xl ,Y1 1,0, Cil IF A*= ” B " GOTD 
60 '■ 

50 P-Xlia-YliXl-Xl+(X2-Xl V 1 5 1 Y 1 “Y 1 + ( Y2— Y 1 V15s X2-X2+C X3-X2 V15s Y2= 
Y2+CY3-Y2 VIS 

55 X3-X3+ ( X4-X3 V 1 5 « Y3-Y3+ ( Y4- Y3 V 1 5 « X4-X4+ ( P-X4 V 1 5 1 Y4-Y4+ ( Q- Y4 V 1 
Si GOTO 70 

60 X 1 -X 1 +5 « Y2-Y2-5 « X3-X3-5 s Y4= Y4+5 1 I F N= 1 OGOTO 90 
70 IF N-23G0T0 90 
80 N-N+liGOTO 40 

90 LINE (7,-63 )-( 58, -498 1,0, Cl, B 
100 IF A*="B"GOSUB "G" 

110 ON HGDSUB " 1 " , " 2 " , "5", " 4 “ , " 5 “ , " 4 " * ON JGOSUB "A" , "B" , "E" , "B" , "E" , 
•SD" 

120 FOR 11=1 TD 3s LINE ( 14+D*3, -70 l-( 14+0*3, -( 470-18*C 1 1, 0, D, B: NEXT D 
130 FOR D-1T0 31 LINE ( 39+3*D, -85-18*B )-( 39+3*11, -490 1, 0, D, Bs NEXT D 
150 GLCURSOR (68,0i:S0RGN s NEXT As TEXT s LF 30 
160 END 

200 " 1 “FOR E=1T0 RsCDLDR G s FOR F=1T0 3s GLCURSOR ( 37-F, -80-F ls LPRINT 
X*(OHNEXT FSCOLOR 1 

205 GLCURSOR ( 37, -80 1 s LPRINT X$( Ois NEXT E s RETURN 

210 "A-FOR E=1T0 RsCDLDR GiFOR F-1T0 3s GLCURSOR ( 13-F, -( 485-1 8*C 1-F 1 
s NEXT FSCOLOR O 

215 GLCURSOR ( 13, -( 485-18*C 1 ls LPRINT X»( Ils NEXT Es RETURN 
230 "2"CaLaR 1 s FOR E=OTO 2s FOR F=OTO 2s GLCURSOR ( 36-E, -80-F 1 s LPRINT 
X*( Ois NEXT Fs NEXT Es RETURN 

240 "B"COLOR Os FOR E=OTO 2 s FOR F=OTO 2s GLCURSOR ( 13-E, 18*C-485-F ls LP 
RINT X*( lis NEXT Fs NEXT Es RETURN 

270 "4 "FOR D=1T0 RsCDLDR lsFOR E=OTO H-'2-l s GLCURSOR ( 36+E*( H-7 1, -80 1 
S LPRINT X4( O ls NEXT E s NEXT D s RETURN 

280 "D"FDR D=1T0 RsCOLDR OsFOR E=OTO JV2-1 s GLCURSOR ( 13+E*( J-7 1, -( 48 
5— 18*C 1 )s LPRINT X*( 1 NNEXT Es NEXT D* RETURN 

290 "5 ,, CDLOR lsFOR E=1T0 R s FOR D=OTD 0. 5*H-D„ 5s GLCURSOR (36,-80+D*(H 
-6 1 11 LPRINT X*(OlsNEXT Ds NEXT E» RETURN 

300 "E"CDLOR OsFOR E=1TD R s FOR D=OTO O. 5*J-0. 5 s GLCURSOR (11,-485+18* 
C— ( J— 6 Ï*D U LPRINT X*( 1 1 s NEXT D s NEXT E s RETURN 

400 "G "GLCURSOR (42,-34 1 s RESTORE SFOR I = 1T0 18 s READ M , N s M=M+9 s N=N+8 s 
LINE -(M, -N 1,0, Os NEXT I s RETURN 

410 DATA 30,32,27,34,23,34, 18,31,24,35,28,36,32,35,35,33,38,28,40,26 
, 14,26, 10,22, 10 

420 DATA 20,11,17,14,17,18,20,19,23,18,26 


10 "Z" s GRAPH s CLEAR. 

11 GLCURSOR (0,0 ïaSORGN 

12 DIM A$( i )+22 
.1.3 DIM H-t ( 1 1+80 

20 A=2 1 0 s B=460 s NA=0 s U=0 

21 DIM Fît 1 )*60 

22 DIM G# (2 1*30 

26 L I NE ( -5 , 20 )- ( A+20 , -B -20 ) , 5 , 2 , B 
30 L. I NE ( 0 , 0 )- ( A , -B J , 0 , 0 , B 
60 L. I NE ( A -30 , O 1- ( A , -30 1 , 0 , O , B 

70 COL. O R 1 

71 'CS I ZE 4 s ROT AIE 1 

72 GLCURSOR ( A-26 . 5 , -7 . 5 ) 

75 LPRINT "A" 

76 COL..DR 0 

78 L I NE ( 0 , - B.-"2 )- ( A , ■ -B--"2 1 

80 L. I NE i: A -30 , -B.-"2 J- ( A , -B.-"2-30 1 , 0 , 0 , B 

85 COLOR 3 s GLCURSOR ( A-26 . 5 , -B.-"2 7 . 5 ) 

90 LPRINT "B" 

91 I....--0 

94 GO SU 3 4000 

95 INPUT "TITRE DE LA FACE A?" S H*( 1 1 

96 U -LE N H$(i:isIF U=OTHEH 103 

98 C-l s GOSUB 1000 

99 GOSUB 4000 

100 INPUT "ARTISTE DE LA FACE A?" 5 H$( I. T 

101 C--2 s GOSLJB 1010 
.1.02 GOSUB 4000 

103 INPUT "NOMBRE SUR FACE A?"", NA 

104 IF HA > 1 0 ri-IEN GOSUB 4030s GOTO J. 03 

105 IF NA=OTHEH 107 

106 GITSUB 2000 

.1.07 L. =£.-■' 2 s GOSUB 4000 

108 INPUT' "TITRE DE LA FACE B?"!HÏÜ ) 
109' U--LEN H:* ( 1 ls IF U-OTHEN 160 

1 10 C=3s GOSUB .1.000 

1 1 1 GOSUB 4000 

112 INPUT "ARTISTE DE LA FACE B?" ï H$( 1 1 
120 C~4s GOSUB 1010 

159 GOSUB 4000 

160 INPUT "NOMBRE SUR FACE B?" SNA 

161 IF NA > 1 OTHEM GOSUB 4030s GOTO .1.60 



170 GOSUB 2000 

1 80 GLCURSDR »: 0 , -600 .1 s 80RGH 

184 GOSUB 4000 

,p«i PAUSE "F IH?—t 0'"H > 

190 Z*-INKEY* s IF Z»» n O"THEH M 

191 IF 2$="H"THEH 26 
195 GOTO 190 

c*S"TITBE".K=l>6QTD 1020 
1010 C.*““<«TISTE"»K=2 
1020 I J-LE N Hf't 1 .1 

1030 IF U<-22THEH 1050 

1031 PAUSE ."IiEPASSEMEMT 

1032 GOSUB 4030 _ 

J 040 DW CGOTO 95,100,108,11+ 

1 050 A#- 1 I f 1 ■' 

i rt55 rst7E i: CDLDR 2*R0TATE 1 

ïo'Æ 5UCÜRSDR (A-1S*K,-<Lh-40)> 

Î°SS ^ r 5 <I 2 ™eh uoo 

îf»5 CSIZE UCflLOR OîRDTATE IîoUIU 111 u 
1100 CSIZE 2* CDLDR OsROlrtlE 1 
1 U O GLCURSDR ( A- 1 5*K , - '• L+9U ) i 
1150 LPR INT A*( 1 
1180 HT< 1 î*" " 

1190 A$( 1 

1191 U «O . 

1200 RETURN 

■7000 IF NAC6THEH GO TU 2,'.>UU _ 

Xq i r , ï ZE 1 s CDLDR 0 s RO ( OTE 1 » J - 1 
2050 K^l 1S0-MA*IS* J ).-(NA*2il 1 
7100 FOR I-1T0 HA 
21 10 GOSUB 4010 
•7 1 ?n I NPUT " T I TRE? " 5 Hï 1 1 > 

2130 F **LEN H*t 1 ) 


2151 GOTO 2120 
2190 F$< 1 )=HiH 1 
2200 GOSUB 3000 

7210 glcursor i: a- c 30+ i: ? . 5*j+k y* 
c 2*1-1 :• :o-cl+io .1 > 

““ kuCURSnR (fl-t30*17.5»J*K)* 

~ 2*1-1 ) ï, -( L+31 . 5*J~t J-l >*** ■' 1 

2230 LPR INT Gït 1 > T , 

7-"'40 GLCURSDR ( A- 1 30+ ( 7 . 5* J+K >* 

2* I i ) , - 1: L.+39* J- (■ J- 1 I* 1 •' ■' 

2250 .LPR I HT GA-C2 î 
2300 HE MT I 
2310 HA-0 
2315 H$( 1 " 

2320 RETURN _ ri ... „ 

2500 CS I ZE 2 s CDLDR 0 « RO VA r I,. 1 - J -+ 
2550 GOTO 2050 

•Win r,f I t :i=lëft$ j _ 

3010 G*(2Ï«MID* ,(F*( 1 :i,30,-.J+l, ~-U.' J J 

3030 RETURN 

4000 BEEP 1,70,400 

4005 RETURN 

4010 BEEP 1,70,50 

4020 RETURN 

4030 BEEP 1 , 253 , 200 

4040 RETURN 


NEW 

& SANS NEW 


du BASIC en &MMMM, le langage machine 
sera donc de &NNC5 à &MMMM-1. Pour 
entrer un programme de L octets à partir de 
&NNC5 on fera NEW&NNC6+L. Le problème 
à ce moment c'est que le programme BASIC 
contenu dans le PC sera effacé. , 

La routine proposée remédie à cet inconvénient 

qui divient vite insupportable. • 

— . ÏUUJIU 

faire 

en guise d'exercice. 

Mettre dans une variable par exemple A, 
l'adresse où doit se faire le NEW, et faire : CALL 
(adresse premier octet), variable. 

Le début du BASIC est décalé, mais sans faire 
un NEW sur le BASIC. A noter que si la varia- 
ble vaut 0, l'effet est le même qu'un NEW 0, 
mais toujours sans effacer le programme. 
Bien sûr, le programme teste s'il y a la place 
sinon, il affiche ERROR 25. 


• -»-« qui divient vite insuppouau.c. • 

OUS connaissez certainemeni Entrez le programme proposé où vous voulez, 
elle Instruction NEW suivie je vous laisse choisir l'endroit et le NEW à faire 

l'un pa ram étre, qui vous pw* — ^ 

net de déplacer la zone de pro- 
iramme BASIC. , , 

I y a au début de votre memoue 
rive une zone de M5 octets uti- 
lisée pour mémoriser le contenu 
Ses touches réserves. Puis se 
trouve la zone des programmes 
BASIC, mais entre deux zones il 
est possible d'insérer d'autres Marc girondot 

programmes en langage 
machine. On décale alors le 
début du BASIC par l'instruction 

NEW suivi de l'adresse ou se 
situera le début du BASIC. 

COMMENT CALCULER CETTE ADRESSE ? 

Le début de votre mémoire vive est en PEEK 
&7863*256. Appelons &NN le poids fort de 
cette adresse. Le début de la RAM est donc en 
&NNOO. A partir de &NNC5, on peut donc met- 
tre le BASIC et le langage machine. 

Si on fait NEW & MMMM, on définit le début 


2A00SFB 
~T2A0S*89 
i 2A108 CC 
SAIS* 24 
L2A2Q8 14 
2A28 8 A7 
ï 2A30S63 
; 2A3880A 
7 2A40819 

2A48S89 
' 2A50 * 89 
"' 2 ASS* A7 

K 2A60S 66 
~2A688 FD 
L 2A70804 
2A78S65 
~ 2A80S80 
2A88SFD 
: 2A90* 14 
2A98* 46 
C 2AA0* 26 
' âlAAS* 64 


2AbO* 99 


5A SC 
06 A5 
67 FD 
Fb 00 
22 OA 
78 64 
89 OF 
FD OA 
EO AS 
OD AS 
05 FD 
78 65 
89 05 
OA FD 
F 9 12 
FD 88 

08 CA 
OA 94 
06 81 
67 53 
99 OA 
FS A4 

09 9 A 


00 89 02 
78 63 18 

88 FD 6A 
2A A4 80 
94 A2 08 
83 OA 94 
5E CS 83 
FD OA FD 
78 65 A 7 
78 66 A 7 
OA FD OA 

89 Ob 14 
FB OA FB 
88 ÇA 67 
2A 84 92 
24 Fb 00 
69 FD 18 
86 81 16 
10 FD IA 
84 A6 99 
98 FD 2 A 
86 99 05 
00 OO 00 


SE 00 
SA CS 
CC 65 
28 F9 
FD 88 
A7 78 
Ob FD 
IA 68 
78 67 
78 68 
9A 94 
A7 78 
OA 9A 
CC 69 
28 CC 
OA A4 
CA 65 
89 04 
FD 2A 
06 04 
FD 2A 
24 06 
00 00 


C6 

78 

8A 

DO 

4D 

15 

03 

F9 

6b 

12 

44 

CD 

26 

84 

DD 

59 

A9 

F7 

A3 

8F 

7b 

1D 

16 






mais elle est relogeable. La syntaxe est : 
CALL [adresse premier octet, ici &3057J, 
[variable alphanumérique] 

Au retour : Si la variable était vide, on a dans 
celle-ci, les caractères que l'on obtiendrait avec 
une pression sur la touche, sinon on obtient ces 
mêmes touches, mais SHIFTEES. 


Voici donc In partie consacrée à 
l'exploitation des connaissan- 
ces acquises dans les deux pré- 
cédents articles* Nous allons 
faire deux routines qui amélio- 


rent la gestion du davier, puis 
en étudiant les résultats d< 
l'une des deux, nous allom 
expliquer les eireurs dans la lec 
ture du clavier. 


La première routine va servir à savoir si une tou- 
che du clavier est appuyée. Il va falloir qu'elle 
soit accessible facilement par le BASIC. On va 
donc donner un code ASCII au programme en 
LM, qui recherchera dans les tables de corres- 
pondance &FE80 - &FEBF et &FEC0 - &FEFF 
s'il la trouve, et la testera. La possibilité de pas- 
ser des paramètres à un CALL sera exploitée 
ici pour passer le code ASCII de la touche à 
tester. 


EXPLICATIONS SOMMAIRES 
LISTE 6 

Le programme est relogeable vous pourrez l'en- 
trer où bon vous semble. Par exemple en 
&40C6, vous ferez alors POKE &40C6, &FD, 

&36, &89, &03... Pour l'utiliser on a deux 
solutions : 

1 ) On met dans une variable numérique le code 
ASCII de la touche à tester. On fait CALL [1»w 
adresse, ici &3000J, [variable numérique] au 
retour, si la variable numérique vaut 0, c'est 
que la touche n'est pas appuyée, si c'est 1, 
c'est qu'elle est appuyée. 

2) On met dans une variable alphanumérique 
te caractère correspondant à la touche à tester 
On fait CALL [le™ adresse, ici &3000J, [varia- 
ble alphanumérique] au retour, la variable alpha- 
numérique contient 0 (code ASCII &30) si la 
touche n'est pas appuyée, . le code ASCII &31 
soit 1 si elle est appuyée. Le programme mar- 
che même si vous appuyez sur plusieurs tou- 
ches ensemble, et aussi si vous demandez les 
codes ASCII shiftés. 


Si CALL [ ], 

[variable numériqueJA = 00 
„ „ X = valeur variable 

&3009 - &3027 Recherche du code ASCII dans 
la table 

x Pointe dans la table 
Yh Pointe les PA 
Yl pointe les IN 

&3029 - &302D Pas des touches 

- soit inexistante 

- soit non appuyée 

&302F - &303A Teste le clavier avec PA en 
entrée et IN en sortie 

&303C - &303E La touche est appuyée 
&3040 - &3053 Conversion en code ASCII si 
variable alpha 

&3055 - &3056 Le SEC indique le chargement 
des paramètres dans la variable et retour 
variable alpha : chaîne de longueur A commen- 
çant en X 

variable numérique : le nombre X 
La seconde routine va plus ressembler à I' 
INKEY$ normal, mais en renvoyant toutes les 
touches appuyées. On va utiliser le CALL suivi 
d'une variable alphanumérique, non pour pas- 
ser des paramètres, mais pour indiquer dans 
quelle variable on veut la réponse. Si on met 
une variable numérique, on aura une ERROR 
7. Nous allons imiter la routine en &E42C. Puis- 
que nous avons vu l'astuce des codes shiftés, 
nous allons l'exploiter : Si au lancement, la 
variable alpha est vide, ce sont les valeurs nor- 
males, mais s'il y a quelque chose dedans, on 
reverra les touches SHIFTEES. 


&3057 - &3060 Si la variable est numérique 
ERROR 7 

&3061 - &3063 Stockage des touches en 
&7B10 Tampon Alpha 

&306F - &306D Détermination SHITFEE ou 
non dans XL 

&306F - &3073 Préparation des registres : 
Xh = poids fort de la table de correspondance 
A = niveau d'exploitation des PA 
on sauve A car ce dernier est modifié par E41 A 

&3074 - &3077 Z = 1 si pas de touche 
pour ce PA 

&3079 - &3080 PA suivant, on avance de 8 

octets dans la table de correspondance. 

&3082 - &308C X = &7B10 

A = nb de touches et retour 

&308D - &3095 Cherche lesquels des 8 bits 

de A sont allumés 

&3097 - &309A On charge dans le tampon 
Alpha la touche 


LES ERREURS : 


1 0 : A$ = " " : CALL &3057, A$ : WAIT 0 

PRINT A$ : GOTO 10 

RUN 


appuyez sur 2. et - , vous verrez 
52 - . Que vient faire ici ce 5 ? 

Le programme proposé se planterait-il ? 
Essayez avec INKEY$ 

10 : A$ = INKEY$ : WAIT 0 : PRINT A$ ■ 

GOTO 10 

RUN 


appuyez sur 2 . et - , vous verrez 
5 I! surprise I! 

Regardons ce qui se passe au niveau électrique 
A chaque intersection, si une touche est enfon- 
cée, le courant va perpendiculairement vers la 
gauche pour sotir au niveau des IN : voir figure 
1 . Mais une partie va vers la droite et une autre 
continue. 


&3000 - &3008 Lecture du code ASCII 
demandé dans A 
Si CALL [ ], 

[variable alpha] A = Ig max var 
X = premier octet 


EXPLICATIONS SOMMAIRES : 
LISTE 7 


Placée en mémoire comme sur le listing, la rou- 
tine se place immédiatement après la première, 



•• 


• touche appuyée 
— courant arrivant par PA 
...courant sortant 




Ce sont ces courants « parasites » qui produi- 
sent cet effet. 

On se rappelle que INKEY$ teste les touches 
par ordre IN décroissant, PA croissant, ce qui 
correspond à celà sur la figure 1 : 


PA® 1 2 3 4 5 6 PA7 



appuyés : 


PAO PA 1 



Pour commencer, il envoie un courant en PA 
0. La touche 2 est appuyée, une partie sort en 
INO, mais une autre partie va vers la touche 
., qui étant appuyée ressort du courant en PA1 
et vers la touche - qui étant aussi appuyée 
envoie du courant entre autre vers la touche 
5 donc vers INI 

INO et INI sont allumés INKEY$ traite en com- 
mençant par les IN les plus forts donc pour lui 
INI est prioritaire, 5 est le résultat ! 

C'est donc le courant parasite 3 qui donne la 
touche 5 comme étant appuyée. 


PA 0 PA1 



— conducteur 
• touche appuyée 
= courant « principal » 

•-Î-? • courant parasite 1 
= courant parasite 2 
as courant parasite 3 

Nous avons vu avec ces 3 articles, le principal 
du clavier mais il en reste beaucoup à voir, 
rassurez-vous ! 

Marc GIRONDOT 


3000 • P SH 

û VA* 1 3000Î FDC8 

3057: CPA 

UL 

3057; 36 

3002; CPA 

UL 

3002: 36 

3058: BZR 

3061 

3058. 8907 

3003; BZR 

3008 

3003:8903 

305A: p OP 

Y 

305A.PD1A 

3005; LDA 

XL 

3005:04 

305C : p OP 

Y 

305C : PD 1 A 

3006; BCH 

3009 

3006: 8E01 

305E; LDI 

UH, 07 

305E: 6807 

3008; LDA 

(X) 

3008.05 

3060: ERH 


3060; E0 

3009; LDI 

VH, 01 

3009:5801 

3061; LDI 

YH, 7B 

3061 ; 587B 

300B.LDJ 

YL, 80 

300B: 5A80 

3063: LDI 

YL, 10 

3063; 5A10 

300D; LDI 

XH, FE 

300D: *8FE 

3065: LDA 

CX) 

3065.05 

300F; LDI 

XL, 80 

300F: 4 A80 

3066: CPA 

UL 

3066. 36 

3011; CPA 

(X) 

3011:07 

3067: BZR 

306D 

3067. 8904 

30 1 2 ; BZS 

302F 

3012:’8B1B 

3069; LDI 

XL, 80 

3069; 4A80 

3014;PSH 

A 

301 4 : PDC8 

306B: BCH 

306F 

306B . 8E02 

.3016; LDA 

YL 

3016; 14 

306D: LDI 

XL, C0 

306D. 4AC0 

3017; SHR 


3017: D5 

306F: LDI 

A, 01 

306F. B501 

3018. STA 

YL 

3018: IA 

3071. LDI 

XH, FE 

3071 . 48FE 

3019;BCR 

3024 

3019:8109 

3073: STA 

UH 

3073.28 

301B. LDI 

YL, 80 

301B; 5A80 

3074; SJP 

E4 1 A 

3074. BEE41 A 

301D; LDA 

YH 

301D; 94 

3077: BZR 

308D 

3077; 8914 

301E.SHL 


30 1E; D9 

3079: LDI 

A, 08 

3079; B508 

301 F ; STA 

YH 

301F: 18 

307B.REC 


307B; P 9 

3020; BCR 

3024 

3020; 8102 

307C : ADC 

XL 

307C; 02 

3022; LDI 

YH, 01 

3022: 5801 

307D; STA 

XL 

307D . 0A 

3024; POP 

A 

3024 ; P D8A 

307E: LDA 

UH 

307E; A4 

3026; INC 

XL 

3026. 40 

307F: SHL 


307F. D9 

3027; BCR 

3011 

3027; 9138 

3080: BCR 

3073 

3080:910F 

3029; LDI 

XH, 00 

3029: 4800 

3082: LDI 

XH, 7B 

3082. 487B 

302B.LDI 

XL, 00 

302B: 4A00 

3084: LDI 

XL, 10 

3084; 4A10 

302D. BCH 

3040 

302D.8E11 

3086; SEC 


3086. PB 

302F; LDA 

YL 

302F; 14 

3087; LDA 

YL 

3087: 14 

3030; STA 

C734E) 

3030: AE734E 

3088; LDI 

YL, 10 

3088: 5A10 

3033; LDA 

YH 

3033; 94 

308A: SBC 

YL 

308A; 10 

3034; SJP 

E4 1 A 

3034. BEE41A 

308B; SEC 


308B.PB 

3037; BIT 

( 734E) 

3037; AF734E 

308C; RTN 


308C.9A 

303A.BZS 

3029 

303A; 9B13 

308D.LDI 

UL, 07 

308D. 6A07 

303C i LD I 

XH, 00 

303C : 4 800 

308F: SHL 


308F. D9 

303E; LDI 

XL, 01 

303E; 4A01 

3090: BCS 

3097 

3090:8305 

3040: POP 

A 

3040: PD8A 

3092: INC 

XL 

3092:40 

3042; CPA 

UL 

3042: 36 

3093: LOP 

308F 

3093; 8806 

3043; BZS 

3053 

3043; 8B0E 

3095. BCH 

307E 

3095: 9E19 

3045; CPI 

XL, 00 

3045: 4E00 

3097: T 1 N 


3097. P5 

3047; BZR 

304F 

3047:8906 

3098: LOP 

308F 

3098. 880B 

3049. LDI 

XH, C8 

3049: 48C8 

309A; BCH 

307E 

309A: 9E1E 

304B.LDI 

XL, 0A 

304B : 4A0A 




304D.BCH 

3053 

304D: 8E04 




304F; LDI 

XH, CA 

304F: 48CA 




3051; LDI 

XL, 18 

3051 ; 4A1 8 




3053; LDI 

A, 01 

3053: B501 




3055: SEC 


3055: PB 




3056; RTN 


3056 :9A 






BOGUES EN ROM 


Au AI des mois, vos appels, 
votre courrier et nos recherches 
nous ont permis de déceler, 

«ms la ROM B ASIC du PC- 1 500, 

«taw nombre d'erreurs 
conduisant à une exécution Ion 

BOOMS en ROM AU NIVEAU 

ANCIENNES ROM 

* Le PC-1 500 n'accepte pas d'étiquette seule 
sur une ligne : 

exemple : 10 : « ESSAI » 

RUN ERROR 

* N0T 1 donne un résultat farfelu 
Repondre une chaine vide à un INPUT pro- 
voque une erreur 0 

* Un using suivi d'une variable numérique blo- 
que le PC-1 500 


felueouàun« plantage »dela 
machinée 

Nous vous les livrons ici, dans 
I ordre chronologique de nos 
decouvertes. 

NOUVELLES ET ANCIENNES ROM : 

* CSIZEO est accepté et conduit à des carac- 
tères de taille 256 

* + ou - devant STR$ provoque l'erreur 131 
Les arguments de DATA, s'ils sont séparés 

par « ; » provoquent une erreur 0 à la lecture 
par READ. 

L^M EADVan ’ able ■’ ou &0D 

Tout ce qui se trouve entre variable et : ou &0D 
pour AREAD et ARUN et : ou &0D pour ce der- 
nier, est ignoré. 


perpétuel ’ ^ueunDttr 

*PRINT # - 2, « NOM » ; VAR ou dIus sim 

plementPRINT# -2 P SIm ' 

ou 'NPUT # - 2, « NOM » ; VAR ou plus sim- 
plement INPUT # - 2, provoque un SPJ &2C4 
soit en RAM si 1 6Ko 

Retour du SPJ par &E2 mais ERROR 1 sinon 
&CD &42 provoque un retour au moniteur 
Exemple : POKE &2C4, 
&BE,&E6,&69,&CD,&42 ENTER 

*ERRnR V ENTE 5 prOVOque un BEEP 1 
tRROR 31 se produit en essayant de lister 

un programme qui a l'adresse de fin incompa- 
tible avec la version mémoire et ce par l'inter- 
médiaire de la RS-232C ou II 

DIFFERENCES ANCIENNES ET NOUVELLES 
ROM : 

Les boucles : Lors d'une boucle FOR-NEXT les 
anciennes ROM testent si la variable prend la 
valeur finale et incrémente, les nouvelles incré- 
mente et teste ensuite. 

Lecture des données : Si vous mettez une ins- 

S 0 " derrière un DATA ' dans toutes les 
ROM elle sera interprétée, mais une erreur se 
produira si vous essayez de lire cette donnée 
avec un READ et une ancienne ROM. 


ESSAI LOGICIEL SUR PC- 1500 


Attention, un titre peut en 
cacher un autre... Sachez, en 

effet miA . 


votre PC-1 500 et nécessite donc 

SËÜëü SïfBa 

«wm-w * K MACRO DE 

KV5. 


~~LÛZ ‘ ««1 un pas un 

moniteur. Ce programme qui 

prend 9Ko de la mémoire de 


ESSAI DE SOFT MONITOR : 

Comme tout bon assembleur vous travaillez sur 
un programme source, que vous écrivez ici 
avec l'éditeur du basic, c'est facile et très pra- 
tique d'emploi. Un nombre illimité de labels 
peut être utilisé. Ce qui est révolutionnaire à 
mon sens, c'est la technique de l'assemblaqe 
de ce programme. 

Vous faites RUN, et chaque instruction s'as- 
semble elle-même en s'exécutant. Pour vous 
montrer la puissance du système, voici com- 


ment faire pour créer, ce que l'on appelle des 
macros instructions, c'est-à-dire une suite 

1100 RETURN^' 1 instruct ‘ ons ^ la macro 
On peut utiliser tous les mots BASIC habituels 
pour faciliter I assemblage. Nous avons vu la 
principale caractéristique de ce programme 
mais il y en a bien d'autres, par exemple lé 
Sourceur '. 


"\ 27 \- 


H s appelle par la fonction PRGS (adresse début 
adresse fin) et permet de remettre sous forme 
de programme source un routine déjà assem- 
blée pour pouvoir ensuite y apporter des modi- 
fications et le réassembler. 

J y a de nombreuses autres fonctions, comme 
PROG qui permet de récupérer dans certains 
cas un programme après plantage, un désas- 
sembleur ou un listing de la table des labels, 
c ?l e T z , q “® ae P ro 9 r amme permet d'intégrer le 
FAST LOAD de LOGI'STYCK, la procédure est 
donnée dans le mode d'emploi. 

En conclusions, ce programme est idéal pour 
programmer de petites applications car dès que 
le source dépasse 5 à 6Ko, il faudra passer par 
plusieurs assemblages successifs en stockant 
les différents sources sur cassette. La notice 
est très bien faite, avec une partie initiation 
un mode d'emploi et une liste des macro- 
instructions, le programme permettant de les 
assembler et de les désassembler. Vous y trou- 
verez aussi des exemples, qui sont bien prati- 
ques pour l'initiation. 

Marc GIRONDOT 



LIENS DE VMS ET VH 


H convient, tout d'abord, de rappeler ce 
que sont ces 2 notions : 

re^trp S îfi e hî 0idS f ° rt d ' un nouveau 

N° îof 6 bl n ° mmé V (V0ir bu,letin 

* VMJ est un super CALL qui permet 

en ROM an ? er à Une adresse précise 
en ROM , il y en a 128 possibles A 

chaque VMJ est associé un nombre qui 
ndique son numéro, ce numéro est tou- 
jours pair de &00 à &FE. La syntaxe 
estdonc VMJ n où n est le numéro de 

abÏÏic ü de R0M se trouve la 
table des adresses où le microproces- 

fp U cn d n 0lt p e r brancher ' Elle se trouve de 

&34°i?t tf T 1 "' Par eXemple ' ,a macro 
«34 lit les adresses &FF34 et &FF35 

et se branche au résultat, ici : &DF23 
(voir liste 1 ). “ 

Toutes les adresses de cette table se 
dirigent en ROM, il n'est pas possible 
de voir ce que devient notre registre Vh 
juste après ce branchement. 

j ^ ®st un registre interne 
j n est le numéro de la macro =&FF 

I Incrément sur 16 bits 

| Nh = &FF 
! NI = n = &FF 

I P 0| ds fort de l'adresse = 00 
! ÎHn N nT . &FFF . F + 1 = &000 

I . . ~ Poids faible de l'adresse 
j le, le poids fort de l'adresse est 00 
j et le poids faible à l'adresse &0000 
solt donc en RAM pour une 16K. 


On va user de témérité pour tenter de 
les détourner vers la RAM en mettant 

des numéros .de MACROS impairs Le 

microprocesseur se laissera berner et 
se branchera, comme si de rien n'était 
a un e nouvelle adresse qu'il calculera 

ppin me r^ e faÇOn que Précédemment. 
FF30 : DC 16 DO 71 DF 23 DF OF 
La macro &30 se branche en DC 1 6 la 
macro S31 se branchera en leDO o, 

unmoïri 6 r <,UedelaRAMaTO<: 

On dispose ainsi de 128 nouvelles 
macros qui sont, pour nombre d'entre- 
elles, en RAM. (voir liste 2) 

Seule, la macro &FF nous pose un pro- 

bleme ; nous avons, en effet 2 oossi 

df cat e u^ a d n ' C a d ement ' SUiVant ,e mode 

e ca,cul d adresse qu'emploie le 
microprocesseur. Utilisant forcément 

s :/S: e * ntern ^'incrémenterc 

sur 8 bits ou sur 16 bits 

Exemple : 


Ma'heureusement, l'incrément serait 
sur 8 bus et cette macro &FF se bran- 
che donc en &00DC. 

i? s n .y°l ü ( ne .7 acro envoyée en RAM, 

I suffit de lire Vh et, surprise, on obtient 

K- ^/ F ‘ CeCI nous conf °rte dans 
d e ^que V est le «résidu» d'un regis 

tœ interne servant aux résultats inter- 
mecJ aires, car, c'est exacement le 
résultat que l'on obtient dans Nh dans 
notre exemple. VI, quant à lui, continue 

qiràT ncemonotoneenétantb, ° 


Incrément sur 8 bits. 

NI = n = &FF 
Nh = &FF 

(N) : poids fort de l'adresse 

JNI - p'J’V &FF + 1 = &000 
N) - Poids faible de l'adresse 

•ci, le poids fort est 00 i 

et le poids faible à l'adresse 

a I adresse &FF00 soit &DC 

macrn! S ç te qu . a décoder les nouvelles 

fier sTeltc r ' 9eant 6n R0M pour véri- 
fier si elles peuvent être utiles 

Marc Girondot Pascal Abrivard 

LISTE 1 

00 @;DCB7 
02 ©. DCB6 
04 @:DCC6 
06 0; D065 
08 @; DDD9 
0A @; DE5£ 

0C DES? 

0E 0: D461 


.10 0; DD2D 
12 DF93 
14 DFFA 
16 0; DFF5 
18 0; DF 80 
IA © ; D2E6 
IC @, P A89 
1£ 0.PB2A 
20 DF72 
22 @. DF63 
24 0; DEAF 
26 0.DB87 
28 ©. QBBJ 
2A 0; D03£ 
2C 8; DCA6 
2£ 0.D6C0 
30 0. DC16 
32 0.D07J 
34 ©. DF23 
36 0.DF0F 
38 i. C£9F 
3 A CFFB 
3C @. PA74 
3 £ 0. P B9D 
40 0. C401 
42 ©. CA58 


44 

©• CA7A 

46 

0. CA80 

48 

0- DCF9 

4A 

0. OCFD 

4C 

0; DCE9 

4E 

0. DC£D 

50 

0. DA7J 

52 

0. p 663 

54 

0- P 7B0 

56 

0. P 73D 

58 

0- p 084 

5A 

0- £573 

5C 

0- p 6 J B 

5£ 

0- P 7A7 

60 

0- P 6B4 

62 

0. P 88B 

64 

3.' P 7B5 

66 ( 

i - P 7B9 

68 Q. p 7 J 5 

6A a. p 8 8F 

6C ©.' P 6FB 

6 £ tg 

• p 080 

70 a 

• p 747 

72 0 

• P 7C£ 

74 0 

* p 775 

76 © 

P 75F 

78 © 

p 72F 

7A © 

■ p 7DD 

7C @ 

P 6E6 

7£ 

p 0 J A 

80 @ . 

p 707 

82 0; 

p 729 

84 @. 

£F00 

86 0. 

f:b40 

88 

£DF6 

8A ©, 

FJD5B 

8C 

££ J F 


8 E 0.EDB1 
30 0.EDAB 
92 8.ED00 
94 S.EC5C 
96 i. EA78 
98 0.EC74 
9A 0.ECEB 
9C 0.ECB7 
9E 0.E4A0 
A0 0.E234 
A2 0-E655 
A4 S.B888 
A 6 0.E451 
A8 &. B88B 
AA 0. B88E 
AC 0.E88C 
AE i. B891 
B0 0.B894 
B 2 ®. B897 
B4 0.B89A 
B6 B89D 
B8 0.B8A0 
BA i-^763 
BC' Q.E4B7 
BE 0.E4A8 
C0 0; DD08 
C2 0. DCD4 
C4 S.DCD5 
C6 HD 13 
C8 0.DCG5 
CA 0: C001 
CC i. DDC8 
CE 0.D45D 
D0 0. D5F9 
D2 a-DDIA 
D4 0.DEE3 
06 a.OEDl 
08 0. 0F3B 
OA a. C00E 
DC a. OE'BC 
DE 0.D6DF' 
E0 0.CD8B 
E2 0.C400 
E4 a*C089 
E6 0. r 70D 

E 8 a. '“661 

EA fà.^ySC 
EC 0.^757 
EE a. c: 7CC 
F0 ©. EF B A 
r 2 ®.EE71 
F4 0.OBBC 
F6 a. 0DB5 
F8 0 ; E 1 7 1 ■ ■ 
FA 0.E22C 
FC 0.E22B 
P E 0-E000 


01 0.B7DC 
03 a. B6DC 
05 a. C6D0 
07 a . 65DD 


0B a; 
0D a; 
0 F a. 
1 1 a, 
13 a. 
15 a. 
17 a. 
19 a. 
ib a. 
id a. 
if a. 
2 i a. 

23 a. 
25 a. 
27 a. 
29 a. 
2 B a. 
2 D a. 
2 F a. 


5EDE 
97D4 
6 1 DD 
2DDF 
930F 
PADF 
P 5DF 
80D2 
E6FA 
89FB 
2 ADF 
72DF 
63DE 
AFDB 
R7DB 
B 1 00 
3EDC 
A6D6 
C0DC 
1 6D0 


87 0. 
89 0: 
RB a. 
8 D a. 



-$3"a- 

a 5 a. 


33 

0. 7 j DF 


B1 

i. 84B8 

35 

a. 23DF 


B3 

8. 97B8 

37 

i. 0F CE 


B5 

a, 9DB8 

39 

a. 9F CF 


B 7 

8. 9DB8 

3 B 

a. r BFA 


B 9 

a- ^0F? 

3D 

a. "MFB 


BB 

a. 63E4 

3F 

a. 9DC4 


BD 

8. B7E4 

41 

a. 01 CA 


B r: 

a. A8DD 

43 

a. 58CA 


Cl 

a. 08DC 

45 

a. 7 AC A 


C3 

a. D4DC 

47 

a. 80DC 


C5 

a. D5DD 

49 

a. ~9DC 


C7 

a. F3 DC 

4B 

a. C DDC 


C9 

a. C5C0 

4D 

8. E9DC 


CB 

a . 0 i dd 

4F 

a. EDDA 


CD 

a. C8D4 

91 

a. f 6 


CF 

a. 5DD5 

53 

a. 6 3F 7 


DI 

a. ^BDD 

95 

a. B0F7 


D3 

a - i pde 

57 

a . 3DF0 


D5 

a. E3DE 

59 

a. R4E5 


D7 

a * n i df 

5B 

a. 73F6 


D9 

a» 3BC0 

5D 

a. ibf? 


DB 

a . 0 E" D E 

5F 

a. b?f6 


DD 

a . BCD6 

6i 

a: B4F8 


D r 

a. DF CD 

63 

8. BBF.7 


E 1 

a. 8BC4 

65 

a. B 5F? 


E3 

a. 00 CD 

67 

a. B 9 F ? 


E5 

a. 8 9 F. 7 

69 

B. 1 5F8 


E.7 

a. 0DF;6 

6B 

g. 8F F 6 


E9 

a. 6iF7 

6D 

a > ^B F 0 


EB 

a. 9 CF? 

6F 

a. 80F? 


ED 

a. 5 ? f ? 

71 

d?F? 


EF 

a. CCEF 

73 

a, CEF? 


l7 1 

e. BDEE 

75 

a. 75 F? 


F 3 

a* 7 jdb 

77 

a, 5F p 7 


-5 

a. BCDD 

79 

a. 2 F F ? 


177 ? 

a. B5E 1 

7B 

DDF6 


1:7 9 

a - 7 .i e 2 

7D 

a. E 6 F 0 


-8 

a. 2CE2 

7 F 

a. 1 df? 


FD 

a, 2BE0 

81 

a. 0 ?f? 


FF 

a . 00 d c 

83 

a. 29EF 




85 

a. 00 EB 







SOLEIL 


Ce programme de 1 500 pas de 
programme en Basic permet de 
suivre le mouvement du soleil. 
Il offre deux possibilités : 

• S j l'heure est fixée, il donne la 
position du soleil (azimut et hau> 
teur observée) 

• Si la hauteur du soleil est 
fixée, on obtiendra sa direction 
(son azimut)et l'heure corres- 
pondante. 

Vous pouvez ainsi savoir ou et 

J uana auront lieu les couchers 
e soleil, ou que vous soyez, 
chez vous ou aux antipodes, à la 
mer ou à la montagne. En prime 
vous saurez chaque jour à quelle 
heure exacte il est midi ! 


LA POSITION DU SOLEIL ET 
DE L'OBSERVATEUR 

Pour l'observateur terrestre, la position du soleil 
est généralement définie par deux angles qui 
sont l'azimut et la hauteur (cf. fig 1). 
L'azimut est simplement l'angle que vous lirez 
sur votre boussole (compas pour les, marins) 
lorsque vous visez dans la direction de l'astre. 
Evidemment ce n'est pas très pratique lorsque 
le soleil est très haut. Il faudra corriger cette 
lecture de la déclinaison magnétique, indiquée 
sur la plupart des cartes. 

L'azimut varie de 0 à 360° et il est compté à 
partir du Nord dans le sens des aiguilles d'une 
montre : Nord = 0°, Est = 90°. Sud = 180°, 
Ouest = 270°. A quand les grades qui arron- 
diront les chiffres, simplifieront grandement les 
calculs et transformeront les miles marins en 
simples kilomètres ? 

La hauteur est comptée à partir de l'horizon 
théorique, perpendiculaire au fil à plomb. Un 
astre au zénith (à notre verticale) a une hau- 
teur de 90° et, s'il est à l'horizon(tale), sa hau- 


teur est nulle. Elle peut même devenir négative 
si on observe le lever ou le coucher d'un astre 
depuis un relief. 



La position de l'observateur est définie en pre- 
mier lieu par sa latitude et sa longitude. Les car- 
tes marines sont graduées en degrés et minu- 
tes, avec pour origine des longitudes Green- 
wich : les cartes terrestres sont souvent gra- 
duées avec une origine prise sur la capitale du 
pays. 

Le programme effectuera les corrections néces- 
saires pour ramener les coordonnées en degrés 
décimaux par rapport à Greenwich, qui est l'ori- 
gine des angles horaires pour les éphémérides. 
Pour des pays autres que la France, on aura 
intérêt à modifier les lignes 6 et 9. 


MODE OPERATOIRE POUR DETERMINER 
LA POSITION DU SOLEIL 

Le calcul consiste tout d'abord à imaginer le 
soleil comme un point observé depuis le cen- 
tre de la terre. C'est le domaine de la mécani- 
que céleste qui fournit les coordonnées du soleil 
sur la carte du ciel. Il faut ensuite introduire 
deux corrections : 

• le soleil n'est pas un point et il faut alors défi- 
nir ce que l'on veut observer (le centre, le bord 
supérieur, le bord inférieur) 


• vu de la surface de la terre, le soleil n'est pas 
tout à fait à la même position que vu du cen- 
tre : il faut effectuer la correction de parallaxe 
(cf. fig. 2). 


/ 



Figure 2 

La hauteur T vue depuis la surface de la terre est toujours 
inférieure à la hauteur Z que l'on verrait du centre de la 
terre. 

En considérant le triangle 0 C C' on obtient : 

Z' = Z-P 

Pour calculer P on utilise la relation approchée : 

P = ATN (R ★COS Z/D) 

où R est le rayon de la terre (109 fois plus petit que celuis 
du soleiK et D la distance entre les deux astres). 


Connaissant alors la position de l'observateur 
sur la terre (latitude et longitude), la trigono- 
métrie sphérique permet de calculer exacte- 
ment l'azimut et une hauteur de l'astre qui 
serait exacte si la terre était dépourvue d'at- 
mosphère. 

En effet à cause de la présence de l'air (cf. fig. 
3), on ne voit jamais ies astres là où ils sont, 
sauf au zénith, mais toujours au-dessus de leur 
position que nous qualifierons de "réelle". 



Figure 3 

La présence de l'air courbe la trajectoire des rayons lumi- 
neux. 

L'observateur situé au point 0 « voit » l'astre dans une 
direction plus proche de la verticale (hauteur plus élevée). 
La différence M-Z se nomme la réfraction. 


L'image que nous voyons n'est décalée ni à 
droite, ni à gauche ce qui signifie que l'azimut 
n'est pas affecté, mais la hauteur est relevée 
de la valeur de la réfraction que nous aborde- 
rons un peu plus loin. 


CALCULS ASTRONOMIQUES 

Le soleil ne tourne pas rond. Il peut présenter 
des retards ou des avances allant jusqu'à un 
quart d'heure sur le soleil fictif, au mouvement 
diurne uniforme, qui règle nos montres. On 
pourra consulter à ce sujet le programme 
« Cadran solaire », Revue Sharpentiers n° 1 2 
- mai 1985. 

Il faut donc calculer exactement sa position à 
partir des données astronomiques. Grosso- 
modo on donne un top départ (si l'on peut dire 
car il s'agit du printemps de l'an 2000 !), et on 
détermine la position exacte du soleil à partir 
de cette date. On utilise pour cela la loi de 
Képler et on projette sur les plans adéquats. 


Les trois grandeurs intéressantes pour la suite 
du calcul sont : 

• l'angle solaire qui est en fait la longitude du 
soleil (cf. fig. 4) 

• la déclinaison, c'est-à-dire sa latitude 

• le demi-diamètre solaire. 

Il est tenu compte : 

• des principales variations séculaires 


• de la précession des équinoxes 

• de la nutation 

• du feston dû à la lune 

mais l'influence des planètes est négligée faute 
de place. 


D 


SOLEIL 


+ 0,5' 


+ 1 SEC. * 

*. ; - ;V ‘- v •* 

TEMPS 

■ ' ’ /// ’.* * - 

-T~ 


-0,5* 



1978 79 80 81 82 83 84 1985 

Figure 5 

Comparaison entre les éphémérides officielles et le sous- 
programme de calcul de la position du soleil, de 1 978 à 
1985. 

Pour la déclinaison D, l'erreur ne dépasse guère 0.1' d'an- 
gle, et, pour l'angle horaire G, l'erreur reste inférieure à 
2 secondes de temps (0.5'). On peut aisément corriger 
l'écart sur G en agissant uniquement sur la variable Q ligne 
101 . 


En fait si l'on compare les résultats du sous- 
programme astronomique avec les éphéméri- 
des (cf. fig. 5), on constate que : 

• l'écart de la déclinaison du soleil est 
négligable, 

• l'écart maximum sur son angle horaire est 
équivalent à 2 secondes de temps, ce qui est 
tout à fait honorable. 


LINEARISATION JOURNALIERE 

Les calculs astronomiques étant longs, nous 
avons linéarisé le mouvement du soleil sur cha- 
que journée (cf. fig. 6). 

Pour cela, la déclinaison et l'angle horaire sont 
calculés à deux instants de la journée, 6 h et 
18 h, heures locales. Tous les calculs utilisent 
ensuite une interpolation sur ces points. 
Attention : ligne 23 le chiffre 4 n'est pas une 
erreur ; il est rendu nécessaire par la redéfini- 
tion de G dans l'instruction précédente : on 
s'attend en effet à trouver un facteur 2 l'inter- 
valle de temps étant égal à une demie journée. 
Après détermination de l'heure de passage au 
méridien, les correspondances entre les angles 
et le temps deviennent très simples (cf. fig . 6) . 
On évite ainsi des calculs itératifs et le gain de 
temps est considérable. 

Les erreurs introduites par la linéarisation sont 
tout à fait négligeables devant celles des cal- 
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Figure 6 

Pour faciliter les calculs, on peut approximer les variations 
de déclinaison et d'angle horaire par des droites 
(linéarisation). 

Les erreurs introduites sont négligeables. 

La déclinaison (cf . figure du dessus) et l'angle horaire sont 
calculés à 6 heures et 18 heures, heure locale, (X+0.25 
et X+ 0.75). On ne garde en mémoire que les valeurs à 
12 h locale P et G et les pentes des droites V et U. 

La figure du dessous montre comment on relie l'angle 
horaire local W au temps écoulé à partir du midi local T. 
Le temps T correspond au passage à la méridienne donc 
à un angle horaire égal à X. 


culs astronomiques dont nous venons de parler. 
N. B. : L'heure de passage au méridien corres- 
pond au moment où le soleil est le plus haut 
dans le ciel : c'est le vrai "midi" local, le milieu 
de la journée. Il n'a que rarement lieu à 1 2 heu- 
res à cause du mouvement non uniforme du 
soleil (voir « Calculs astronomiques ») et de 
l'écart en longitude. 


REFRACTION 

La réfraction (fig. 3) a un effet considérable. 
A l'horizon elle induit plus qu'un soleil d'écart 
(cf. fig. 7). Le bureau des longitudes donne un 
tableau des valeurs de cette réfraction pour des 
hauteurs observées de -1° à +90°. 

De -1° à 11°, nous avons représenté la 
réfraction à l'aide de deux polynômes, l'un de 
-1° à 0°, l'autre de 0° à 11°. 

Pour les hauteurs élevées (supérieures à 11°), 
nous avons opté pour la loi connue en 1/tg 
(hauteur). 



Figure 4 

Un observateur terrestre est repéré par sa longitude X et 
sa latitude Y. Pour le soleil, il en est de même. 

Si on imagine un axe allant au centre du soleil au centre 
de la terre, il perce la sphère terrestre en un point de lon- 
gitude G (appelé angle horaire) et de lattitude D (appelée 
déclinaison). 

Il faut évidemment imaginer cette figure sur une sphère. 
Si G = X, le soleil passe au sud de l'observateur (ou au 
nord si D >Y). 

Si cet observateur se place au point défini par G et D, le 
soleil est exactement à la verticale. 


Ainsi, de — 1 0 à 90°, nous rendons compte de 
la réfraction avec une erreur qui ne dépasse pas 
3" (0.05'). De plus le raccord, à 1 1 °, entre la 
loi en tangeante et le polybôme est quasi par- 
fait et les deux polynômes coïncident avec la 
valeur théorique de 36' à l'horizon (0°). 
Toutes ces valeurs de réfraction sont données 
pour une température peu romantique de 0°C 
et une pression normale de 101 3 mb. Or ces 
deux paramètres ont, une très grande impor- 
tance et leurs effets doivent être pris en 
compte. Nous dirons quelques mots sur les 
effets de la pression. 

La réfraction est proportionnelle à la pression. 
Si les variations de pression dues aux anticy- 
clones et dépressions sont faibles (quelques 
%), celles dues à l'altitude sont énormes : au 
sommet du Mont-Blanc (4807 m), la pression 
ne vaut plus que 55% de sa valeur au bord de 
la mer et la réfraction y est donc presque deux 
fois plus faible. 

La procédure à suivre si on est en altitude est 
la suivante : 

• soit on entre la pression locale lue en mb (ou 
bien on multiplie par : 1073/760 la pression lue 
en mm Hg) et on répond « zéro » à la question 
sur l'altitude. 

• soit on entre la pression corrigée, c'est-à-dire 
ramenée au niveau de la mer, c'est la classi- 
que pression météorologique, et on entre l'al- 
titude du lieu d'observation, le programme cal- 
culera alors la pression locale, en tenant 
compte de la loi de variation de pression en 
fonction de l'altitude. 

Près de l'horizon, on pourra constater des 
écarts notables entre la réfraction-type et la 
réfracion réelle. La présence de masses nua- 
geuses peut conduire à des anomalies de 
réfraction de plusieurs minutes d'angles ; cha- 
cun aura observé un soleil très distordu à l'ho- 
rizon, beaucoup plus aplati par exemple que 
pelui de la figure 7 calculé pour des conditions 
normales de réfraction. 


LEVERS ET COUCHERS DE SOLEILS 

A cause des anomalies de réfraction vers Tho- 
lïzon, il est impossible de calculer le coucher 
du soleil à la seconde près. 

L'heure que donne le programme correspond 
aux conditions moyennes de réfraction. 

Dans les calendriers, les heures de lever et de 
coucher sont calculées pour un lieu donné 
(Paris pour la France), le soleil étant supposé 
se lever sur l'horizon théorique (hauteur = 0). 



REEL 


Figure 7 

Début de coucher de soleil (ou fin de lever) sur l'hori- 
zon(tale), pour une température de 2Ô°C et une pression 
normale. 

Lorsque le soleil observé touche l'horizon, le soleil réel est 
déjà complètement couché. 

On notera l'aplatissement du soleil, sa base étant plus 
réfractée que sa partie supérieure. 


La réfraction est supposée constante durant 
toute l'année, généralement égale à 34', ce qui 
correspond à 20°C et 1 01 3 mb, mais la valeur 
de 36' 36", qui correspond aux conditions nor- 
males 0°C et 1013 mb est elle aussi utilisée. 
De plus, le rayon du soleil est souvent supposé 
constant et égal à 1 6' (il varie de 1 6.3' l'hiver 
à 15.7' l'été). 

Le lever est souvent défini comme l'apparition 
du bord supérieur du soleil et le coucher sa dis- 
parition, mais certains considèrent son centre. 
Fort de toutes ces remarques, il ne faut donc 
pas s'inquiéter trop vite si l'on trouve une dif- 
férence avec certaines publications. 


L'HORIZON DU PROGRAMME 

Si Ton dispose d'un instrument muni d'un hori- 
zon artificiel, ou si on utilise la visée directe plus 
la réflexion sur une surface horizontale (réci- 
pient d'eau ou de mercure), on mesure effec- 
tivement la hauteur de l'astre au-dessus de 
l'horizon théorique. 

Pour les observations côtières, ou en mer, l'ho- 
rizon visible, plus bas que l'horizon théorique 
est une base commode pour mesurer la hau- 
teur des astres. 

Lorsque le programme demande (ligne 81) ou 
donne (ligne 70) la hauteur observée, c'est par 
rapport à l'horizon visible, c'est donc exacte- 




ment la mesure qui serait obtenue par un 
sectant. 

Le fait d'être toujurs en dessus du niveau de 
la mer pour l'observation, entraîne une correc- 
tion de dépression (cf. fig. 8), prise en compte 
par le programme : il suffit de répondre correc- 
tement à la question Hauteur/Horizon, en 
mètres (ligne 40). 

Pour ceux qui veulent les hauteurs par rapport 
à l'horizon théorique, il suffit de répondre : 0 
(zéro) à cette question. 



Figure 8 

Pour un observateur situé à une hauteur h, l'horizon visi- 
ble est en dessous de l'horizon théorique. L'angle L est 
défini par : 
cos L = R/(R+h) 

L s'appelle la dépression de l'horizon. 


NB : La hauteur de l'horizon observée est égale 
à - L. Dans le programme, L est égale à : 
ation, entraîne une correction de dépression (cf . 
fig. 8), prise en compte par le programme : il 
suffit de répondre correctement à la question 
Hauteur/Horizon, en mètres (ligne 40). 

Pour ceux qui veulent les hauteurs par rapport 
à l'horizon théorique, il suffit de répondre : 0 
(zéro) à cette question. 

NB : La hauteur de l'horizon observée est égale 
à - L. Dans le programme, L est égale à : 

L = Vlhauteur(m)/1140) 

Si Ton se reporte à la figure 8, on arrivera aisé- 
ment à la relation : 

cos L = R / (h + R) où R est le rayon de la terre 
(6370 km). 

En développant le cosinus en 1 - L 2 /2, on arri- 
verait à la relation : 

L = Vl2h/R) ou L = f(h/970) avec h en mètres 
et L en degrés. 

Pourquoi emploie-t-on la valeur 1140 et non 



pas 970 dans le programme ? C'est encore une 

i correction due à la réfraction car les rayons 

issus de l'horizon ne rejoignent pas l'observa- 
teur en ligne droite. 

t On peut simplifier ce genre de calculs en utili- 

sant un rayon fictif de la terre R' égal à 
7 500 km au lieu de 6 370 km. La réfraction 
est intégrée dans ce gonflement de la sphère 
terrestre. 

Tant que nous y sommes, donnons la distance 
de l'horizon visible d'un hauteur h : c'est f 
(2hR'|. 


EVALUATION DE LA HAUTEUR 
DES RELIEFS 

Si l'observateur se trouve à une altitude hl et 
observe un coucher de soleil sur un relief d'al- 
titude h2 situé à une distance d, la hauteur du 
soleil n'est pas égale à : arc tg ((h2-h1)/d) à 
cause de la rotondité de la terre. 

Un relief situé à une distance d « s'enfonce » 
de d 2 /2R' ou R' est le rayon fictif de 7 500 km 
dont nous venons de parler : cet enfoncement 
représente 1 .5 km à 1 50 km de distance. Il est 


ait. 5 (- 
<km) i 
41 - 



Figure 9 

Détermination du relief prépondérant. 

On peut localement assimiler un grand cercle terrestre à 
une parabole d'équation -d 2 /R' avec R' = 7 500 km, pour 
tenir compte de la réfraction, d étant la distance de l'ob- 
servateur au point considéré. 

Pour une altitude donnée, la ligne de l'horizon qui serait 
visible en l'absence de relief est tangente à la parabole. 
Pour tracer cette tangente, on peut utiliser une propriété 
de la parabole : le point de tangence a une altitude néga- 
tive, symétrique par rapport à l'horizon. Il cache donc cet 
horizon et le soleil se couchera sur ce relief. 



vrai qu'en altitude ce rayon R' se rapproche du 
rayon R de la terre, à cause de la diminution 
de la réfraction, mais ne nous compliquons 
pas... 

Donc, la hauteur angulaire est égale à : 
arc tg ((h2-h1)/d-d/2R') 

Si un observateur situé sur un relief veut cal- 
culer un lever ou un coucher de soleil, il lui faut 
savoir quel est le relief le plus «haut » au sens 
angulaire, et ensuite déterminer si ce relief est 
en dessus ou en dessous de l'horizon. Vous 
connaissez déjà la hauteur de l'horizon, c'est : 
- L = - f [hl/1140) 

La figure 9 représente une construction qui per- 
met de tester rapidement quel est, de l'horizon 
et des différents reliefs, celui qui est à pren- 
dre en considération. 


A L'INTENTION DES MARINS 

Ce programme est parfaitement utilisable pour 
la navigation astronomique à l'aide du soleil, 
spécialement lorsqu'on emploie la méthode de 
la droite de hauteur (voir le programme « Navi- 
gation astronomique » dans la revue Sharpen- 
tier n° 10 - décembre 1984). 

A la ligne 70, la variable A est l'azimut et M 
est la hauteur corrigée du soleil. L'intercept 
nécessaire à la correction de la droite de hau- 
teur est égal à S - M si S est la valeur de la 
mesure du sextant. Toutes les corrections de 
demi-diamètre, de la réfraction, etc. sont déjà 
effectuées. 


RECALAGE DE L'ANGLE HORAIRE 

Si l'on estime que l'écart de deux secondes de 
temps sur l'angle horaire est trop important, 
il faut recaler la constante Q à la ligne 101. 

Pour cela, faire tourner le programme pour une 
longitude nulle et comparer le temps de pas- 
sage au méridien (H, ligne 27) avec les éphé- 
mérides. 

Modifier la variable Q en conséquence : 

+ 0.01 sur Q avance le temps de passage de 
2.4 secondes. 


TEMPS ECOULE ENTRE DEUX DATES - 
DONNEES ASTRONOMIQUES 

La variable I, ligne 14, représente le nombre de 
jours à partir du premier janvier de l'an 2000 
à 0 h (2000,0). I est donc négatif de nos jours. 



Nous connaissons donc le nombre de jours qui 
nous sépare de ce réveillon mémorable et, par 
différence, il est aisé de trouver le nombre de 
jours qui sépare deux dates. Notez que 1 900 
est bissextile alors que 2000 ne l'est pas. 
Plusieurs données astronomiques intéressan- 
tes sont contenues dans le programme. Citons 
par exemple ; 

• l'anomalie excentrique (ligne 105) et vraie 
(ligne 106) 

• le diamètre du soleil (ligne 108) 

• l'ascension droite (ligne 109) 

• la déclinaison D (ligne 1 10), l'angle horaire 
G (ligne 111) (attention G est exprimé en nom- 
bre de tours). 

Il faut noter que le sous-programme de calcul 
des éphémérides du soleil ne nécessite que la 
connaissance du temps T compté en jours déci- 
maux à partir de 2000,0. On peut très bien l'uti- 
liser pour obtenir les éphémérides du soleil à 
un instant T quelconque. 


A L'ATTENTION DES PROGRAMMEURS 

Ce programme a été mis au point sur une 
SHARP PC 1211. Mais tel qu'il est présenté, 
il dépasse légèrement les 1424 pas de pro- 
gramme. Voici quelques conseils pour le com- 
pacter sur PC 1211 : 

• supprimer les zéros inutiles 

• supprimer les signes inutiles (ligne 1 4, écrire : 
INT.01Z, etc.) 

• supprimer les parenthèses de fermeture 

• supprimer les valeurs par défaut (ligne 3, 4...) 

• supprimer les formats et les commentaires 
d'entrée 

• être très succint dans les commentaires 
d'entrée 

• G - INT G, ligne 25, est esthétique pour la 
suite (ligne 62) mais pas indispensable. 

• supprimer * ( 1 - (A = — 1 )) ligne 201 qui cor- 
respond à un cas d'école 

• supprimer totalement la ligne 401, si vous 
ne vous intéressez pas aux hauteurs très néga- 
tives (< -0.2°)) 

Faute de place, nous n'avons pas introduit la 
correction d'heure locale (1 heure ou 2 heures 
en Europe) ; c'est très simple, mais attention 
au signe. Dans le programme toutes les heu- 
res doivent être exprimées en temps universel 
(TU). 

N.B. : La variable O (lettre 0) n'intervient 
qu'aux lignes 100 et 105. Ne pas la confon- 
dre avec le chiffre 0. 

Ligne 109, 5E-6 signifie 0.000005. 



MISE AU POINT DU PROGRAMME 


Dans le cas où il y a plusieurs passages sur un 
sous-programme, nous donnons les valeurs 
Afin de faciliter la mise au point, nous donnons correspondant au premier passage, 
les valeurs des principales variables, pour un 
cas particulier (voir exemples). 


ligne 

nom et valeur des variables 

3 

X= -5.0260 gr 

4 

Y = 50.9627 gr 

5 

Z = 1 

6 

W = 1 

8 

Y = 45.86643° 

9 

X = -0.01905722 tour 

10 

J = 24 , M = 7 , A = 1985 

14 

1 = - 5274 j 

102 

T = 5273.769057j , Z = - 5353.083057j 

103 

F = -0.2044378 

104 

C = 23.44303° 

105 

A = -5201.15755° 

106 

A = -161.4643573° 

107 

S = 0.26277° 

108 

A = 123.503060° 

109 

G = -93.2735575 tour 

110 

D = 19.87926° 

23 

G = 0.9764393 tour, U =0.9999872 t/j 
P = 1 9.82648 °,V= -0.211105 °/j 

25 

W = 0.0045035 1 

27 

H = 1 1 h 39 mn 02.56 sec 

40 

M~= 0 

41 

K = 3.05 km 

42 

B = 1028 mb, C = 14° 

43 

L = 0 

44 

N = 0.6605 

50 

F = -1 

60 

H = 19.2038 (19 h 20 mn 38 sec. 

61 

K = 0.3250526 j 

62 

W = 475.396175 °, D = 19.75787° 

63 

Z = -2.202823°' 

65 

Z = -1.94245° 

68 

C = 1 .05243 ° (dernier passage) 

70 

M = -1° 14' 50" , A = 301° 42' 00" 

50 

F = -1 

51 

J = 1 

80 

B = 1 

81 

M = -1.1527 (-1° 15' 27"( 

82 

M = -1.2575° 

83 

Z = -2.21630° 

302 

W = 115.5090° (premier passage) 

85 

D = 19.7578° 

302 

W = 115.41883 ° (deuxième passage) 

90 

H = 19 h 20mn 43.4 sec, a = 301° 43' 00" 


EXEMPLES 

1. Coucher de soleil le 24 juillet 1985 au refuge 
des Grands Mulets 

Cet exemple est celui traité dans la mise au 


point du programme. 

Longitude: -5.0260 gr/Paris 

Latitude : 50.9627 gr 

Altitude : 3050 m 

Pression: 1028 mb 

Température: 14° C 


Le soleil se couche sur la chaîne du Jura, située 
à 82 km de distance, dont la crête avoisine 
1 700 m d'altitude. 

La rotondité de la terre entraîne un abaissement 
de : 

(82) 2 =0.45 km 
2*7500 

Dans ces conditions la hauteur du soleil au cou- 
cher est ds ! 

DMSATN ((1.7 -0.45 -3.051/82) = 1° 15' 

27" 

L'heure du coucher, calculée à l'aide du pro- 
gramme est égale à : 

1 9 h 20 mn 43 s T.U. (21 h 20 mn 43 s heure 
européenne). 

Ce soir-là, l'horizon était très clair, et nous 
avons observé le coucher de soleil à : 

19 h 20 mn 38 s T.U. 

Trop beau pour être vrai ? 

2. Lever de soleil, le 25 juillet 1985 sur la 
Grande Bosse (arête ouest du Mont-Blanc) 

Longitude: -5.0201 gr/Paris 

Latitude : 50.9288 gr 
Altitude : 4 500 m 
Pression : 1028 mb (météo) 

Température: -2°C 

Hauteur observée/horizon (taie) = — 1 0 07' 
30" 

Azimut =58° 44' 

17" 

Faute de carte détaillée de la Suisse (et de l'Au- 
triche ?), nous ne pouvons pas vérifier la valeur 
de la hauteur pour l'azimut donné. 

A vous de jouer, si vous disposezdu nécessaire, 
et, s'il vous plaît, faites part de vos observa- 
tions à l'auteur, qui vous remercie par avance. 

Gilbert VINCENT 



1 "SOLEIL" 

2 R*360 î DEGREE 

3 X = 00.0000 : INPUT "LONGITUDE (0+,E-) ?" ; X 

4 Y = 45.0000 î INPUT "LATITUDE (N+,S-) ?"; Y 

5 Z * 0 î INPUT "DEGRE = ENTER , GRADE* 1 " ; Z 

6 W ■ 0 : INPUT "GREENWICH* ENTER, PARIS*1 "; W 

7 IF Z = 1 LET X * 0.9*X : Y * 0.9*Y : GOTO 9 

8 X = DEG X : Y » DEG Y 

9 X » (X -2 . 3372*W) / R 

10 INPUT "JOUR ?"; J V'MOIS ?"; M, "ANNEE NNNN ?"; A 

11 Z * A-2000 

12 IF M > 2 THEN 14 

13 Z -■ Z-l : M * M+12 

14 I = J + INT ( 30.6* (M+l ) ) - 63 + INT (365.25*Z) 

-INT (Z/100) + INT ( INT ( Z/100 )/4 ) 

20 H * X + 0.25 s GOSUB 100 

21 U * G : V = D 

| 22 H * H + 0.5 : GOSUB 100 

23 G * (G+U )/2 : U * 4* (G-U ) : P = (D+V)/2 : V * 2*(D-V) 

25 W = X - G : W * W - INT W î W * W - (W>0.5) 

| 26 T * X + 0.5 + W/U s T * T - INT T : H * DMS (24*T) 

27 PRINT USING "###.#####" ; "MIDI*"; H 

40 M = 0 î INPUT "HAUTEUR / HORIZON (M) ?"; M 

41 K * 0 : INPUT "ALTITUDE (KM) ?"; K 

42 B * 1013 : C * 14 : INPUT "P (MB)?"; B ,"T (DC)?"; C 

43 L * \/~ (M/1140) 

44 N * BM1-K/42P5 / 1013 / (l+C/260) 


70 PRINT USING "####.####" ; "A*" ; A ; "M*" ; M 

71 GOTO 50 

80 B * -1 î INPUT "MATIN * ENTER , AM * 1 " ; B 

81 INPUT "HAUTEUR OBSERVEE (D.MNS) ?" ; M 

82 M * DEG M - L : GOSUB 400 

83 Z * M - N * C + S * (F + COS M / 109) 

84 D * P ; GOSUB 300 

85 D * P + V * (W/R/U + T - X - 0.5): GOSUB 300 

86 GOSUB 200 

87 H = T + W/R/U : H * H - INT H : H * DMS (24*H) 

90 PRINT USING "####.###*"; "A*" ; A ; "H*" ; H 

91 GOTO 50 

99 END 

100 C * 23.4393 : E * 0.016710 : L * 77.060 : O * 3.016909 

101 P * 79.3140 : 0 * 291.1595 : B * 365.256363 

102 T * I + H : Z * T - P 

103 K * 125 - 0.053*T : F - 0.014 * (Z/B - (SIN K-0.86)/3)) 

104 C * C + 0.0026 * (COS K - T/B/20) 

105 FOR K * 1 TO 4 : A - (T-0)*R/B + E*R/2 TT* SIN A î N EXT K 

106 A * 2* ATN (TAN (A/2) * \/““ ( ( 1+E )/( 1-E ) ) ) 

107 S * 0.267 * (1 + E*COS A) 

108 K * A - L + F : A * ATN (TAN K * COS C)+ R/2*(ABS K>90) 

109 G * H - P + Z/B + ( 0 - A + F* COS C ) / R 

- 5E-6 * (SIN (R* (T-6 )/29 .53 ) - 0.11) 

110 D * ASN (SIN K * SIN C) 

111 RETURN 

200 A * (COS D * SIN Y * COS W - SIN D * COS Y) / COS Z 

201 A * DMS (SGN SIN W * ACS A + R/2* ( 1- ( A— 1 ) ) ) 

202 RETURN 


50 F * -1 : INPUT "BORD SUP*ENTER , CENTRE*0 ,INF*1 "; F 

51 INPUT "HEURE * ENTER , HAUTEUR * 1 "; J : GOTO 80*J 

60 INPUT "HEURE TU H.MNS ?"; H 

61 K = DEG H /24 - X - 0.5 : K * K -INT K : K * K - (K>0.5) 

62 W * R * (G + K*U - X) : D * P + K*V 

63 Z * ASN ( COS D * COS Y * COS W + SIN D * SIN Y) 

64 GOSUB 200 

65 Z * Z - S * (F + COS Z / 109) : M * Z : E * 0 

66 GOSUB 400 

67 IF ABS (C-E) < 1E-4 THEN 69 

68 M * Z + N*C : E * C : GOTO 66 

69 M * DMS (M+L) 


300 W * (SIN Z - SIN D * SIN Y) /COS D / COS Y 

301 IF ABS W > 1 : BEEP 5 : GOTO 50 

302 W * B * ACS W 

303 RETURN 

400 IF M>11 LET C * 1 / TAN M / 61 : GOTO 403 

401 IF M<0 LET C * 0.61 -0.23*M + M*M/10 : GOTO 403 

402 C * 0.61 / (1 + 0.4*M + M*M/33* ( l-M/22 ) ) 

403 RETURN 





1 CONTRE-ATTAQUE 


On l'attendait depai s lona- 
•jWW... brfm le vnilà I (In |e» 
? 2 ? 1 0 " e . n jj" 9 «ge machine sur 
!î. M ^-^quw^'aaiMI ?u 
|eu est librement inspiré de la 


c<Kbn tarife <b débrida ffln 
« l empire contre-attaque ». 

Pour ceux qui ont vu le film et les 

la M sifuation <,PPe,le bnèvemenf 


L alliance, ennemie jurée de l'ineffable Empire 
a etabl( un poste avancé sur la planète glacée 
d Hoth Mais I affreux Dark Vador ne tarde 
totot pas a retrouver leur position, et lance 

larmee avec votre PC1251. Aux commandes 

Ami l cano '!, ! aser ' vous devez détruire les 
Ambulos, véhiculés tout terrain de l'Empire, qui 
attaquent la base. Il faut que vous les reteniez 
e plus longtemps possible, pour permettre aux 
restes des forces rebelles de se replier dans 
espace pour y continuer la lutte. Même, si 
vous le pouvez, détruire entièrement les for- 
ces impériales. Mais ne vous faites pas trop d'il- 
lusions, plus le temps passe, plus votre résis- 
tance diminue, plus l'ennemi avance vite. Je 
vous dirai entre nous, que je ne suis jamais 
arrive a tout de l'armée impériale. Mais je n'ai 
jamais ete très bon en jeu vidéo, même avec 
ceux que je crée... 

QUELQUES DETAILS PRATIQUES 

Il faut que vous laissiez approcher le moins pos- 
sible les Ambulos de votre canon. Pour cela 
il faut que vous tiriez le plus souvent possible' 
cela entrave la marche des Ambulos. Le 
gagnant sera celui qui aura permis le plus grand 
nombre de survivants. 

Bonne chance!!! Et que la force soit avec 

Maintenant, redevenons sérieux et étudions ce 
programme de fond en comble. Je ne vais pas 
prétendre faire un cours de programS 
mais, seulement expliquer le fonctionnement 

de certa,^ routines en langage que 

Qih ! D 3ye de rendre les plus un 'verselles pos- 

tiî /° U ? ermettre une éventuelle réutilisa- 
tion dans d autres programmes. 


MuSf ME NUMER ° 1 : U R0UT,NE 

Ce programme est très simple à réutiliser. Il suf- 
fit que vous soyez un peu musicien et que vous 
compreniez la suite du chapitre. A chaque note 
correspond quatre paramètres. 

- Les deux premiers paramètres se lisent sur 
a figure 1, il s'agit de constantes de temps 
qui imposent la fréquence de vibration du buz- 
zer. Exemple : 

220 a1 C ° rreSPOndent l6S paramètres 

Pour un do § 2 correspondent les paramètres : 
*o5, 10. 

Pour un Ia2 correspondent les paramètres : 0, 
etc. 
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cr. . ««wm* , ; CF2 = pflRflMETTRE 2 
CDR * CONSTANTE DE RETARD 
CLRVIER DES VALEURS 

DE PARRMETReI 5 


2. Le troisième paramètre correspond à une 

Lutihîr/ 6 f 6 - r ^ ra P a 9 e dont nous définirons 
I utilité tout-a-l heure. Cette constante est la 

/ : IS exem e ple a,eUr QUe 100 P6Ut lire SUr la figure 

Pou! l n r 4 °l 1 , C0rreSP0nd le paramètre : 6 9 

Pou 1 li C ° rreSp0nd le paramètre : 1 ' 19 
un do2 correspond le paramètre ; 255 

U— 1 


3. La quatrième valeur est la durée pendant 
laquelle on joue la note : 

9 = ronde 
5 = blanche 
3 = noire 
2 = croche 
1 = double croche 

Si vous voulez une vitesse supérieure à la dou- 
ble croche, vous laissez à 1 le paramètre 4 et 

unp l d T ISeZ P i? r 2 le paramètre 3 pour avoir 
ne triple croche, par 4 pour avoir une quadru- 
ple croche, puis par 16, par 32, etc. 

Par contre pour avoir des vitesses inférieures 
a la ronde vous multipliez le paramètre 4 par 
2, et vous retranchez 1 . Quelques exemples : 
Pomjouer une ronde en sil, tapez : 255, 50, 

Pour jouer une croche en la §2, tapez :0, 140, 

2M!'7w™T*' ,plecr ° cl,e8nlaUap “ : 

Si? T '°" de mi2 ' •' 

Etc. 

Attention ! 

Respectez l'ordre des valeurs : paramètre 1 

dTS 2 ' C ° effiCient de fattrapage ' durée 
Maintenant sortons de la peau du musicien, 

u P fcI lrCete de r,nformaticien i comment 
utiliser tous ces paramètres ? (Attention ! dans 

la suite de ce paragraphe, les adresses sont 
données en hexadécimal ($) et les paramètres 
en décimal (#)). D'abord, sachez que le pro- 
gramme se charge de $C280 à $C2FF, alors 
que les paramètres sont rangés de $C404 à 
5C4FF ce qui fait quatre paramètres par note, 
bo notes maximum. 

Les notes seront donc rangées ainsi • 

Première note $C404 param 1 
$C405 param 2 
$C406 coef, rattrap 
$C407 durée note 
Deuxieme note SC408 param 1 

$C409 param 2 
$C40A coef, rattrap 
. , t $C40B durée note 
Troisième note $C40C param 1 

éC40D param 2 
$C40E coef, rattrap 
$C40F durée note 

Soixante- $C4FC param 1 
troisième note $C4FD param 2 
$C4FE coef rattrap 
$C4FF durée note 

Bien sûr, vous n'êtes pas obligé de mettre 63 


notes, vous pouvez en mettre moins, mais pas 
plus ! Vous devez indiquer ce nombre en 
pokant à l'adresse :Poke$B806, # (nombre de 
note). N'oubliez pas de la faire sinon, vous 
pourriez avoir de très désagréables surprises. 
Ceci étant, le programme machine charge, les 
paramètres et le nombre de notes aussi, vous 
pouvez faire CALL$C292. 

Si vous n'avez pas bien suivi jusqu'ici, recom- 
mencer depuis le début du chapitre, et ceci 
jusqu'à ce que vous compreniez, c'est très 
important I Les autres suivez moi ! Après ces 
hors d'œuvres théoriques, nous allons nous 
enfoncer dans un dédale d'octets. Voici com- 
ment fonctionne ce programme. 

Le P.C. 1 251 est équipé d'un buzzer. Celui-ci 
peut prendre deux positions respectives, une 
position haute que l'on appellera 1 et une posi- 
tion basse que l'on appellera 2. Quand le buz- 
zer passe de la position haute à la position 
basse et réciproquement, il émet un petit bruit. 
C'est une suite très rapide de ces petits bruits 
qui va provoquer un son. Plus la fréquence de 
passage de 1 à 2 et 2 à 1 sera grande et plus 
la note sera élévée. Pour réduire, ou augmen- 
ter cette fréquence il faut utiliser des 
wait'machine, qui ralentissent la fréquence 
d'oscillation. Ces valeurs de wait sont données 
par les deux premiers paramètres que nous 
avons étudiés tout à l'heure. Mais plus ces wait 
sont courts, et plus la note est jouée rapide- 
ment. En effet, pour faire une analogie avec le 
basic si vous faites une boucle : FORI = 1 to 
100 : WAIT : NEXTI. On s'aperçoit alors que 
plus X sera petit et plus ce programme sera 
effectué rapidement. C'est la même chose en 
langage machine, d'où l'utilité d'une constante 
de rattrapage de temps pour que toutes les 
notes soient jouées pendant un même temps. 
C'est le troisième paramètre que nous avons 
étudié. Remarquez que plus la fréquence est 
élevée, donc plus la note est haute, plus les 
paramètres wait diminuent et plus la constante 
de rattrapage augmente, vérifiant ainsi ce que 
l'on vient de dire. Maintenant que nous avons 
toutes les notes de la gamme, il faut pouvoir 
les jouer plus ou moins longtemps les unes par 
rapport aux autres. C'est là qu'intervient le der- 
nier paramètre. Dans la fin du programme il y 
a une boucle qui selon la valeur du dernier para- 
mètre, joue 1 fois, 2 fois, (etc.), la note. 

Encore une chose : 

Pour une application personnelle de ce pro- 
gramme et si vous ne voulez pas combiner l'af- 
fichage qui fera partie du deuxième chapitre, 
placez les Pokes suivants : Poke$C2F5, $CE, 


$CE, $CE. J'espère que fort de tous ces ren- 
seignements, vous écrirez de jolies mélodies 
sur votre P.C. 

PROGRAMME 2 : ROUTINE DE DEFILE- 
MENT A L'ECRAN 

Encore un programme que vous pourrez réuti- 
liser. Attention ! Ce programme n'est pas très 
long, mais les paramètres prennent eux de la 
place. La routine commence $C000 à $C0FF, 
$C3000 à $C3FF et finit en $C500 à $C5CF. 
Le but de ce programme est de faire défiler à 
l'écran 5 lignes de 1 0 caractères, chaque carac- 
tère étant défini par 5 octets. Voici comment 
définir votre dessin : vous prenez une feuille 
quadrillée 5x5 (petits carreaux). Vous dessi- 
nez un grand rectangle de 50 x 40 petits car- 
reaux. Puis vous divisez horizontalement en 1 0 
et verticalement en 5. Vous devez alors obte- 
nir 5 lignes horizontales constituées de 40 bar- 
reaux de 8 carreaux verticaux. Un barreau de 
8 carreaux représente un octet, ainsi qu'un affi- 
cheur de votre P.C. Mais l'afficheur du 1251 
ne comporte que 7 points verticaux ! Mais c'est 
là toute l'astuce de ce programme. Vous ver- 
rez non seulement défiler le 8 e bit, mais aussi 
tous les octets qui se trouvent en dessous de 
la première ligne, sans qu'il n'y ait 
d'interruption. 

Le codage des octets : comme vous le savez, 
un octet est composé de 8 bits. Seul 7 appa- 
raissent à l'écran mais le 8 e existe. C'est grâce 
au scrolling vertical que l'on pourra le faire 
apparaitre à l'écran. Comme le montre la figure 
2, le bit de plus haut rang est celui du bas et 
celui qui a le rang le plus faible est celui du haut. 
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Pour coder un octet, vous mettez la valeur de 
chaque bit et vous additionnez celles pour les- 
quelles, le bit doit apparaitre en noir à l'écran. 
Une fois que vous connaissez la valeur des 250 
octets composant le dessin, il ne reste plus qu'à 
les ranger en mémoire (figure 3). Le rangement 
se fait à partir de l'adresse 49950 et s'effec- 
tue de haut à droite. Voilà, c'est tout simple 
pourvu que vous ayez quelques bases de 
binaire. 
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Explication théorique du programme. Voyons 
tout d'abord la fonction 'SR'. Quand on appli- 
que la fonction SR a un octet, tous les bits de 
celui-ci sont déplacés d'un écran. C'est-à-dire 
que le bit rang 7, devient le bit de rang 6, celui 
de 6 devient 5, et., jusqu'à celui de rang 0 qui 
se charge dans un bit spécial appelé 'CARRY'. 

C'est la méthode qui est utilisée ici. On prend 
les 50 premiers octets. On les décale vers le 
haut et pour chaque octets on regarde CARRY. 
Si il se charge à 0 on passe au suivant, mais 
si il se charge à 1 , on fait un OU logique avec 
l'octet d'affichage correspondant, pour met- 
tre a un bit 217. Une fois tous les octets déca- 
lés, on fait même chose avec l'afficheur, ce qui 
fait qu'à chaque fois que vous allez appeler la 
routine, vous allez voir apparaitre par le bas les 
octets de la première ligne. Au bout de 8 
appels, la première ligne sera épuisée et on 



commence la deuxième et ainsi de suite, 
jusqu'à la fin de la 5 e . 

Vous trouvez celà compliqué ? 

Oh, je vous comprends très bien. Mais le prin- 
cipe est assez simple. 

CONCLUSION 

Le programme 3, ainsi que le 4, sont le jeu par 
lui-même. Etant très spécifique à ce jeu, il serait 
superflu de le commenter. Mais pour les obs- 
tinés du langage machine, je leur fournis quand 
même le listing en langage machine commenté. 
Maintenant voyons comment enregistrer ce 
programme. Le grand avantage de STAR 
WARS est que ceux qui ne possèdent pas le 
CEI 25 peuvent aussi y jouer. Il suffit qu'ils 
tapent les programmes les un après les autres 
et qu'ils fassent 'RUN' après avoir fini chaque 
programme. Pour ceux qui possèdent le magné- 
tocassette, ils doivent enregistrer chaque pro- 
gramme. Mais réenregistrer les 4 programmes 
à chaque fois, peut paraitre long à certains. 
Voici une astuce pour ceux dont le fait de faire 
travailler les autres les fatiguent plus que si 
c'était eux qui faisaient le travail. 'STAR 
WARS' occupe toute la mémoire donc il suffit 
de déplacer le pointeur de fin de mémoire basic 
à son extrême valeur. Une fois le programme 
entièrement tapé et fonctionnant parfaitement, 
tapez : 

POKE&C6E3, &CF : POKE &C6E4, &C5 : 
POKE &C5CF, 255, CSAVE 
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LISTING EN LANGAGE MACHINE DU PROGRAMME 1 
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CHARGE *FF DANS “B' 
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CHARGE Tl 1 DANS "A' 




0284 

CAL 

* 

1FE1 

FF 

Bi 


APPELLE 1.8 SOUS ROUTINE EL 

Tl FBI 
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CHARGE *01 DANS ‘A- 
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CHARGE *C2B7 DANS BP 
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INOREMENTE 'A' 
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CHARGE fl" A L'ADD 'DP' 




0287 

LIER 

* 

C2BF 

1 0 


BF 

CHARGE TC2BF DANS 'DP' 
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INOREMENTE 'A' 
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CHARGE "fl A L'ADD "DP" 
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CHARGE *0287 DANS "DP"' 
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Ainsi, votre P.C. va enregistrer 3486 octets 
sans distinction L.M. ou basic. Deux inconvé- 
nients mineurs. Par ce fait, l'initialisation de l'af- 
fichage n'est pas faite et il se peut que le défi- 
lement écran ‘n'apparaisse qu'au bout de 3 run. 
Deuxième inconvénient, quand vous aller lis- 
ter le programme en mode 'PRO', il se peut que 
vous ayez des signes bizares sur l'écran. Cela 
vient du fait que l'interpréteur basic essaye de 
coder les octets L.M., alors il a quelques pro- 
blèmes. Mais en aucun cas, le déroulement du 
programme ne peut être affecté par ce mode 
de chargement. Voilà l'ensemble des choses 
que l'on peut dire sur ce programme. Encore 
une petite indication. Mon record au niveau 5 
est de 504 survivants. Les touches de dépla- 
cement sont : 

ÏNSlet celle de tir : j f | 


DEL 


et 


J'espère que vous apprécierez ce jeu, et que 
les routines graphiques et sonores déclanche- 
ront des vocations... 





LISTING 

EN 

LANl 








0:500 

L.IDP 

* 

F845 

10 

F 8 

45 

CHARGE TF845 DANS jDP 


C503 

RC 



DI 



MET '2 '*1 , "C"=0 


0504 

LDD 



b f 



CHARGE DANS 'fl' LA VALEUR DE ! HDD 

"DP 

0505 

SR 



D2 



EFFECTU UNE ROTATION A DROITE 


0506 

STD 



52 



CHARGE 'fl' A L'ADD "DP 


0:507 

U DP 

T 

0:0100 

10 

C0 

00 

CHARGE T-C000 DANS 'DP' 


050 A 

LDD 



57 



CHARGE DANS "A" LA VALEUR DE L'ADD 

"DP 

C50B 

SR 



D2 



EFFECTU UNE ROTATION A DROITE 


0500 

STD 



5:> 



CHARGE "A" A L'ADD "DP" 


C50D 

JRNCP 

T 

06 

28 

06 


SI "C"=0 ALLER EN TC514 


C50F 

U DP 

* 

F845 

10 

F 8 

45 

CHARGE TFS45 DANS "BF" 


0512 

OR IB 

T 

80 

D5 

80 


EFFECTU UN OU ENTRE *88 ET L'ADD "BF" 

i.35 1 4 

LIER 

* 

0509 

10 

05 

09 

CHARGE *0509 DANS 'DP' 


0517 

LDD 



bi ;, ‘ 



CHARGE DANS "fl L.A VALEUR DE L'ADD 

"DP" 

0518 

INC A 



42 



INOREMENTE 'fl' 


05 1 9 

STD 



52 



CHARGE, "A" fl L'ADD "DP" 


C5 1 A 

L I DP 

* 

0:502 

ï 0 

C5 

02 

CHARGE *0502 DANS "DP 


C51.D 

I...DD- 



57 



CHARGE DANS "A" LA VALEUR DE L'ADD 

"DF" 

0:5 1 E 

INC A 



42 



INOREMENTE fl" 


05 1F 

SI" D 



52 



CHARGE "A" A L'ADD "DF"" 


C520 

L. I DP 

* 

0:51 1 

10 

C5 

11 

CHARGE *0511 H DANS "DP 


052"::! 

STD 



52 



CHARGE "A" A L'ADD "DP" 


0:524 

CRIA 

* 

77 

67 

77 


COMPARE "Fl" ET *77 


0:526 

JPN2 

T 

0 Si h 1 

7C 

05 

00 

SI 80*77 ALLER EN *0580 


C529 

U: dp 

* 

.8809 

10 

B 8 

09 

CHARGE *B809 DANS 'DP' 


0520 

LDD 



57 



CHARGE DANS 'A' LA VALEUR DE L'ADD 

"DF" 

052D 

DEÇA 



43 



DECREMETE "fl" 


0:5 2 P 

STD 



52 



CHARGE "A" A L'ADD "DF" 


052F 

JR.2P 

T 

0546 

7E 

05 

46 

SI 'A'=0 ALLER EN *0546 


053;? 

1... J Tl F' 

T 

C502 

10 

05 

02 

0HHRGE *i 5u7' DAN Ü DP 


0535 

LIA 

* 

45 

82 

45 


CHARGE *45 DANS "A" 


0:537 . 

STD 



52 



CHARGE fl"' A L'ADD "DF"" 


0538 

I....ÏDF' 

* 

0:511 

10 

C5 

l:i 

CHARGE *C511 DANS "DF"" 


C53B 

STD 



52 



CHARHE "fl" A L'ADD "DF" 


0530 

!.. 1 DP 

T 

0:509 

10 

05 

09 : 

CHARGE *0509 DANS "DP" 


0:53 F' 

LDD 



57 



CHARGE DANS 'A' LA VALEUR DE L'ADD 

"DP" 

0540 

SB 18 

* 

32 

75 

32 


SOUSTRAIT *32 fl 'fl' 


C542 

STD 



52 



CHARGE "A" A L'ADD 'DP' 


054:3 

RTS 



37 



RETOURNE AU DERNIER Cf) LL... EFFECTUE: 




C544 

NOP 



CE 



NE FRIT RIEN 


C545 

HOP 



f F 



NE FAIT RIEN 


0546 

LÏDP 

$ 

C582 

10 

C5 

02 : 

CHARGE $C502 DANS ' DE- 


C549 

LIA 

$ 

45 

82 

45 


CHARGE $45 DANS 'DP' 


C54B 

STD 



52 



CHARGE 'A' A L'ADD " DE- 


C54C 

L I DP 

$ 

0511 

10 

C5 

11 

CHARGE $0511 DANS " DE- 


C54F 

STD 






CHARGE "A'" A L'ADD - DE- 


0550 

L I DP 

$ 

B809 

10 

B8 

89 

CHARGE $B809 A L'ADD ' DE- 


C553 

LIA 

$ 

08 

02 

08 


CHARGE $08 DANS 'fl' 


C555 

SID 



52 



CHARGE -A- A L'ADD 'DP' 


0556 

RTS 



3,’ 



: RETOURNE AU DERNIER CAL.L EFFECTUE 

C280 

LIB 

$ 

WM 

03 

FF 


• CHARGE $FF DANS "fl" 


C282 

LIA 

$ 

n 

82 

11 


CHARGE $FF DANS 'B' 


0284 

CAL 

$ 

tFBl 

FF 

B1 


■ APPELE LE SOUS PROGRAMME EN 

$1FB1 

0286 

NAIT 

$ 

FF 

4F. 

FF 


EFFECTUE $FF CVCLE MACHINE 


i"2AS 

NAIT 

$ 

FF 

4E 

FF 


EFFECTUE $FF CVCLE MACHINE 


C28A 

LIA 

$ 

01 

02 

01 


CHARGE $81 DANS 'fl' 


C28C 

CAL 

flFBl 

FF 

El 


APPELE LE SOUS PROGRAMME EN 

$1FB1 

C28E 

BECB 



C3 



DECREMENTE B' 


028F 

JRHZM 

$ 

0E 

29 

Me; 


SI AO0 ALLER EN $C280 



LISTING EN LANGAGE MACHINE DU PROGRAMME 3 


Cl 00 

U DP 

$ 

B800 

10 

B 8 

00 

CHARGE $B808 DANS 'DP' 

Cl 03 

LDD 



57 



CHARGE DANS 'A' LA VALEUR DE L'ADD "DF" 

Cl 04 

DEÇA 



43 



DECREMENTE 'A' 

Cl 05 

STD 



52 



CHARGE 'A' DANS 'DP" 

Cl 06 

JRNZP 

$ 

0A 

ss- 

0A 


SI 200 VA EN $C111 

Cl 08 

L.IÜL 

$ 

01 

ii 

01 


CHARGE $01 DANS ' DF*L ' 

C10A 

LDD 



57 



CHARGE LA VALEUR DE 'fl' DANS 'DP' 

C10B 

LIDL 

$ 

00 

11 

00 


CHARGE $08 DANS ' DPL ' 

C10D 

STD 



52 



CHARGE 'A' A L'ADD 'DP' 

C10E 

CALL $C240 

78 

€2 

48 

APPELLE LE SOUS PROGRAMME EN $0240 

cm 

RTS 



37 



RETOURNE AU DERNIER CALL EFFECTUE 

C11C 

L I DP 

$ 

C 1 3 .1 

10 

Cl 

31 

CHARGE $C 1 3 1 DANS 'DP' 

C 1 1 F 

LDD 



57 



CHARGE DANS 'A' LA VALEUR DE L'ADD "DP 

Cl 20 

INC A 



42 



INCREMENTE 'A' 

Cl 21 

STD 



52 



CHARGE 'A' DANS 'DP' 

Cl 22 

LIB 

$ 

00 

03 

00 


CHARGE DANS 'B' LA VALEUR $00 

Cl 24 

L I DP 

$ 

F80 1 

18 

F 8 

01 

CHARGE DANS 'DP' LA VALEUR $F801 

Cl 27 

LDD 



5 r* 



CHARGE DANS 'A' LA VALEUR DE L'ADD 'DP- 

Cl 28 

EX AB 



DA 



ECHANGE LES VALEURS DE 'A' ET 'B' 

Cl 29 

STD 



57 



CHARGE -fl' A L'ADD 'DP' 

C12A 

L I DP 

$ 

C 1 26 

10 

Cl 

26 

CHARGE DANS 'DP' LA VALEUR $C126 

C12D 

LDD 



57 



CHARGE DANS "A" LH VALEUR DE L'ADD 'DP- 

C12E 

INCfl 



42 



INCREMENTE 'A' 

Cl 2F 

STD 



52 



CHARGE 'A' A L'ADD 'DP' 

Cl 30 

CP IA 

$ 

08 

67 

88 


COMPARE 'A' AVEC LA VALEUR $08 

Cl 32 

JRNZ 

$ 

Cl 24 

7C 

Cl 

24 

SI Z=0 VA EN $C124 

Cl 35 

LDD 



57 



CHARGE DANS 'fl- LA VALEUR DE L'ADD "Dp- 

Cl 36 

SB I fl 

$ 

07 

7507 


SOUSTRAIT $87 fi 'A' 

Cl 38 

STD 



57 



CHARGE 'fl' A L'ADD 'DP' 

Cl 39 

RTS 



37 



RETOURNE AU DERNIER CALL EFFECTUE 

Cl 40 

L I DP 

$ 

C 1 5 1 

10 

Cl 

51 

CHARGE LA VALEUR $C151 DANS 'DP' 

Cl 43 

LDD 



57 



CHARGE DANS 'A' LH VALEUR DE L'ADD 'DP 

Cl 44 

DEÇA 



43 



DECREMENTE 'A' 

Cl 45 

STD 



52 



CHARGE 'A' A L'ADD 'DP' 

Cl 46 

JPNZ 

$. 

CM F 

7C 

Cl 

4F 

SI Z=0 VA EN $C 1 4F 

Cl 49 

LIA 

$ 

3B 

02 

3 B 


CHARGE DANS 'A' LA VALEUR $3B 

C14B 

STD 



52 



CHARGE 'fl' A L'ADD 'DP' 

CMC 

RTS 



37 



RETOURNE AU DERNIER CALL EFFECTUE 

C14D 

NOP 



CE 



NE FAIT RIEN 

CME 

NOP 



CE 



NE FAIT RIEN 

C14F 

L I DP 

$ 

F83B 

10 

F8 

3 B 

CHARGE LA VALEUR $F83B fl L'ADD 'DP' 

Cl 52 

LDD 



57 



CHARGE DANS 'A' LA VALEUR DE L'ADD "DP 

Cl 53 

TSIA 

$ 

04 

66 

84 


ET LOGIQUE ENTRE fl ET $84 

Cl 55 

JPZ 

$ 

C140 

7E 

CI 

40 

SI ZOO VA EN $$CM8 

Cl 58 

LDD 



57 



CHARGE DANS 'fl' LA VALEUR DE L'ADD 'DP 

CI 59 

SB IA 

$ 

04 

75 

04 


SOUSTRAIT $04 A 'A' 

C15B 

STD 



52 



CHARGE 'fl' fl L'ADD 'DP' 

CISC 

L I DP 

$ 

Cl 51 

10 

Cl 

51 

CHARGE $C151 DANS "BP" 

Cl 5F 

CALL 

$ 

Cl 65 

10 

Cl 

65 

APPELLE LE SOUS PROGRAMME EN $0165 

C162 

JP 

$ 

Cl 49 

79 

Ci 

49 

VA EN $C149 

Cl 65 

LIDP 

$ 

Cl 71 

10 

Cl 

71 

CHARGE $0171 DANS 'DP' 

Cl 68 

LIB 

$ 

00 

03 

08 


CHARGE $00 DANS 'B' 

C16A 

LP 

$ 

00 

83 



CHARGE $83 DANS 'P' 

C16B 

MVDM 



53 



CHARGE 'P' DANS 'DP' 

C16C 

LIA 

$ 

11 

02 

11 


CHARGE $11 DANS 'A' 

Cl 6F 

CALL 

$ 

1FB1 

FF 

El 


APPELLE LE SOUS PROGRAMME $1FB1 

Cl 78 

WA I T 

$ 

03 

4E 

83 


EFFECTUE 3 CVCLES MACHINES 

Cl 72 

LIA 

$ 

01 

02 

01 


CHARGE $01 DANS 'A' 

Cl 74 

CALL 

$ 

1FB1 

FF 

B1 


APPELLE LE SOUS PROGRAMME $1FB1 

Cl 76 

INCB 



02 



INCREMENTE 'B' 

Cl 77 

JRHZM 

$ 

E8 

29 

0E 


SI 2=0 VA EN $0165 

Cl 79 

RTS 



37 



RETOURNE AU DERNIER CALL. EFFECTUE 

Cl 85 

LIDP 

$ 

Cl 91 

10 

ci 

91 

: CHARGE $0191 DANS 'DP' 

Cl 88 

LIB 

$ 

00 

83 

00 


: CHARGE $88 DANS 'B' 

C18R 

L..P 

$ 

00 

83 



CHARGE $83 DANS 'P' 

C18B 

MVDM 



53 



: CHARGE 'P' DANS 'DP' 

CISC 

LIA 

$ 

11 

82 

il 


: CHARGE $02 DANS 'A' 

C18E 

CALL. 

$ 

lFBi 

FF 

El 


APPELLE LE SOUS PROGRAMME $1FB1 

Cl 98 

WA I T 

$ 

83 

4E 

03 


: EFFECTUE 3 CVCLES MACHINES 

Cl 92 

LIA 

$ 

01 

82 

01 


: CHARGE $81 DANS 'A' 

Cl 94 

CALL 

$ 

1FB1 

FF 

El 


APPELLE LE SOUS PROGRAMME $1FB1 

Cl 96 

INCB 



C3 



INCREMENTE. 'B-' 

Cl 97 

JRHZM 

$ 

0E 

29 

0E 


SI 2=0 VA EN $C185 

0199 

RTS 



87 



RETOURNE AU DERNIER CALL EFFECTUE 

C19A 

LIB 

$ 

30 

83 

38 


CHARGE $30 DANS 'B' 

CISC 

LIA 

$ 

10 

02 

10 


: CHARGE $18 DANS "fi" 

C19E 

CALL 

$ 

1FB1 

FF 

El 


APPELLE LE SOUS PROGRAMME $1FB1 

C1A0 

WA I T 

$ 

FF 

4E 

FF 


EFFECTUE 255 CVCLES MACHINES 

C1A2 

LIA 

$ 

00 

82 

00 


CHARGE $80 DANS 'A' 

Cl A4 

CALL 

$ 

1FB1 

FF 

El 


APPELLE LE SOUS PROGRAMME $1FB1 

Cl A6 

DECB 



C3 



DECREMENTE 'B' 

C1A7 

JRHZM 

$ 

0C 

29 

0C 


SI 2=0 VA EH C19A 

C1A9 

RTS 



37 



RETOURNE AU DERNIER CALL EFFECTUE 

C1B0 

CALL. 

$ 

Cl 00 

89 

Cl 

00 

APPELLE LE SOUS PROGRAMME $0100 

C1B3 

LIDP 

$ 

B802 

10 

B8 

02 

CHARGE $B802 DANS 'DP' 

C1B7 

LDD 



57 



CHARGE DANS "fl' LA VALEUR DE L'AD "DP" 


G I BS 

DEÇA 



43 



DECREMENTE "fl" 


C1B9 

STD 



52 



CHARGE "A"' H L'ADD "DP"' 


C 1. B fl 

JPNZ 

$ 

C1.B0 

7 G 

Cl 

B0 

SI Z=0 VA EN $01 B0 


Cl BD 

LIA 

$ 

20 

02 

20 


CflHRÜE $28 DANS "fl" 


C1BF 

STD 



52 



CHARGE "A" A L'ADD "DP" 


ci ce. 

LIDP 

$ 

B803 

10 

B8 

03 

CHARGE $B803 DANS "DP" 


0103 

LIP 

$ 

5C 

12 

50 


CHARGE $50 DANS 'P' 


C1C5 

L:TT':-'C 

J- 

01 

00 

01 


CHARGE $ 01 DANS 'I' 


0107 

MVWD 



18 



CHARGE "DP' DANS "P"' 


Cl 08 

OU T fl 



DD 



CHARGE $50 DANS LE PORT IA 


C1C9 

OUTB 



40 



CHARGE $5D DANS LE PORT IB 


Cl CA 

DECP 



51 



DECREMENTE " F"" 


Cl CB 

CMPA 



07 



COMPARE "P" ET "fl" 


CICC 

CP IA 

$ 

01 

00 

01 


COMPARE "A" ET $01 


Cl CE 

JPNZ 

$ 

C1E6 

7C 

Cl 

E6 

SI 2=0 VA EN $C1E6 


Cl DI 

U. DP 

$ 

F87B 

10 

F 8 

7 B 

CHARGE $ F87B DANS "DP" 


C1D4 

LDD 



57 



CHARGE DANS "A"' LH VALEUR DE L'ADD 

"DP" 

C 1D5 

LIDP 

$ 

Cl 54 

10 

Cl 

54 

CHARGE $0154 DAN6 "DP" 


C1D8 

STD 






CHARGE A" fl L'ADD "DP' 


01D9 

LIDP 

$ 

C 1 5 A 

10 

Cl 

SA 

CHARGE $01 SA DANS "DP " 


Cl DO 

SID 



52 



CHARGE '"fl" fl L'ADD "DP" 


Cl DD 

CRU 

$ 

C 1 85 

78 

Cl 

85 

APPELLE LE SOUS PROGRAMME $0185 


CI.E0 

CALL 

$ 

Cl 40 

?fi 

Cl 

40 

APPELLE LE SOUS PROGRAMME $0140 


C 1 E3 

CALL 

$ 

11E0 

78 

11 

E0 

APPELLE LE SOUS PROGRAMME $11E0 


C1E6 

CRU... 

$ 

Cl 00 

78 

Cl 

00 

APPELLE LE SOUS PROGRAMME $0100 


C1E9 

LIDP 

$ 

B885 

10 

B 8 

05 

CHARGE $B805 DANS 'DP' 


0 1 EC 

l DD 



57 



CHARGE DANS "A" LA VALEUR DE L'ADD 

"DP" 

Cl ED 

DEÇA 



43 



DECREMENTE " A "‘ 


Cl FF 

STD 



52 



CHARGE "A" fl L'ADD "DP" 


Cl EF 

JRNZ 

$ 

C1B8 

70 

Cl 

B0 

SI 2=0 VA EN $01 B0 


C 1 F 2 

LIA 

$ 

10 

02 

10 


CHARGE $10 DANS 'fl' 


C1F4 

STD 






CHARGE "A" A L'ADD "DP" 


C 1 F 5 

CALL 

$ 

Cl 10 

78 

Cl 

10 

APPELLE LE SOUS PROGRAMME $C11C 


C 1 F 8 

NOP 



CE 



NE FAIT RIEN 


C1F9 

LIDF 

$ 

Cl 31 

10 

Cl 

31 

CHARGE $0131 DANS DP' 


Cl FC 

LDD 



57 



CHARGE DANS 'fl' LA VALEUR DE L'ADD 

"DP" 

C1FD 

CP IA 

$ 

3B 

67 

3B 


COMPARE "A' AVEC $3B 


Cl FF 

JRNZ 

$ 

0203 

70 

02 

03 

SI 2=0 VA EN $0203 


0202 

RTS 



37 



RETOURNE AU DERNIER CALL. EFFECTUE 


0203 

LIDP 

$ 

F83B 

10 

F 8 

3 B 

CHARGE $F83B DflND 'DP' 


0206 

LDD 



57 



CHARGE DANS "A" LA VALEUR DE L'ADD 

"DP" 

0207 

CP IA 

$ 

00 

67 

00 


COMPARE 'fi' AVEC $00 


0209 

JRNZ 

$ 

0218 

70 

02 

T8 

SI 2=0 VA EN $0218 


0200 

LIDP 

$ 

0205 

10 

C2 

05 

CHARGE $02.05 BANS "DP" 


C20F 

LDD 



57 



CHARGE DANS "A' Lfl VALEUR DE L'ADD 

DF"" 

0210 

DEÇA 



43 



DÉCRÉMENTE A' 


0211 

STR 



52 



CHARGE "fl" L'ADD "DP" 


0212 

CP IA 

$ 

00 

67 

00 


COMPARE 'fl- El $08 


0214 

JRNZ 

$ 

C203 

■70 

02 

83 

SI 2=0 VA EN $C203 


C217 

RTS 



37 



RETOURNE AU DERNIER CALL EFFECTUE 


02 1 8 

LIDP 

$ 

0205 

10 

C2 

05 

CHARGE $0205 DANS "DP" 


021 B 

LIA 

$ 

3B 

02 

3 B 


CHARGE $3B DANS 'fl' 


02 1D 

SID 



52 



-CHARGE "fl" A L'ADD "HP 


02 1E 

JP 

$ 

C1B0 

79 

Cl 

B0 

VA EN $01 B0 


0221 

RTS 



37 



RETOURNE AU DERNIER CALL EFFECTUE 


0240 

LIDP 

$ 

B803 

10 

B 8 

03 

CHARGE $B803 DflND ' DE- 


0243 

LIP 

$ 

5f: 

12 

5C 


CHARGE $5C DANS "P" 


0245 

LII 

$ 

01 

00 

01 


CHARGE $01 DANS " 1 " 


0247 

MVWD 



18 



CHARGE 'DP' DANS 'P' 


0248 

DU T A 



5D 



CHARGE $50 DANS LE PORT Itt 


C249 

OUTB 



DD 



CHARGE $5 D DANS LE PORT lB 


024A 

INA 



4C 



CHARGE Lfl VALEUR DU PORT IA DANS "H 


C24B 

DECP 



51 



DECREMENTE " P"' 


C24C 

CPMfl 



07 



COMPARE "P" ET "fl" 


024D 

CP IA 

$ 

02 

67 

02 


COMPARE "A" ET $02 


C24F 

JRNZ 

$ 

0260 

?f: 

02 

60 

SI Z=e VA EN $0266 


0252 

LIDP 

$ 

F87B 

10 

F8 

7 B 

CHARGE $F87B DANS "DP" 


0255 

LDD 



57 



CHARGE DANS "fl" LA VALEUR DE L'ADD 

"DP" 

C256 

SI. 



5 fl 



ROTATION LOGIQUE fl GAUCHE 


0257 

SID 



52 



CHARGE "fl"' fl L'ADD "DP" 


0258 

CP IA 

$ 

80 

67 

80 


COMPARE "A" AVEC $88 


025A 

JRNZP 

$ 

04 

28 

04 


SI 2=0 VA EN 025F 


0250 

LIA 

$ 

01 

02 

01 


CHARGE $01 DANS "fl" 


C25E 

SID 



52 



CHARGE "A" A L'ADD "DP" 


025F 

RTS 



37 



RETOURNE AU DERNIER CALL EFFECTUE 


C260 

CP IA 

$ 

64 

6>7 

04 


COMPARE "fl" AVEC $04 


0662 

JPNZ 

$ 

025F 

70 

C2 

5F 

SI 2=0 Vfi EN $C25F 


C665 

LIDP 

$ 

F87B 

10 

F 8 

7 B 

CHARGE $F87B DANS "DP" 


i.'feéy 

LDD 



57 



CHARGE DANS "A" Lfl VALEUR DE L'ADD 

"DF" 

C669 

CP IA 

$ 

01 

67 

01 


COMPARE $01 ET "A" 


066B 

JRNZ 

$ 

0272 

7C 

C2 

72 

SI Z=0 VA EN $0272 


C66E 

LIA 

$ 

40 

02 

40 


CHARGE $40. DANS ■ fl" 


C670 

STD 



52 



CHARGE 'fl' A L'ADD "DP" 


0671 

RTS 



37 



RETOURNE AU DERNIER CALL EFFECTUE 


0672 

SR 



D2 



DECALAGE LOGIQUE Fi DROITE 


0273 

STD 



5 7 



CHARGE "A" A L'ADD "DP" 


0274 

RTS 



37 



RETOURNE AU DERNIER CALL EFFECTUE 


READV. 








C2E1 

CALL.. 

$ 

0280 

78 

C2 

80 

AF-ELLE LE SOUS PROGRAMME EN $0280 


C2E4 

JP 

$ 

C2.Ü6 

79 

02 

D6 

VA EN $C2D6 


C2E7 

LIDP 

$ 

B80A 

10 

B8 

0fl 

CHARGE $B806 DANS 'DP' 


C2EA 

LDD 



57 



CHARGE DANS "H" Lfl VALEUR DE L'ADD 

"DP 

C2EB 

DEÇA 



43 



DECREMENTE "fl" 


C2EC 

STD 



52 



CHARGE "A" A L'ADD 'DP' 


C2ED 

JRZP 

$ 

04 

38 

04 


St ' A ' =0 ALLER EN $C2F2 


C2EF 

JP 

$ 

C2'^2 

79 

0:2 

92 

ALLER EN $0292 


C2F2 

LIA 

$ 

02 

02 

02 


CHARGE $02 DANS "fl" 


C2F4 

STD 



52 



CHARGE 'fl' A L'HDD "DP" 


C2F5 

CRU.... 

$ 

C500 

78 

C5 

00 

APELLE LA SOUS PROGRAMME EN $0500 


C2F8 

JP 

$ 

0292 

79 

C2 

92 

' VA EN $0292 


•fl' 

= REGISTRE R 

:s BITS) ^ 

'B = REGIT RE 'B" <8 BITS) 


'DP 

= REG 

ISTRE DP •: 

16 BITS 




# SI VOUS VOULEZ UTILISEZ CE PROGRAMME TOUT SEUL SANS LM ROUTINE 2 
DE DEPLACEMENT D'ECRAN , REMPLACEZ L'OCTET $C2E8 VALANT $E? PAR $92 



428» 0» 250» 112 

280! POKE î 

ÜC4A4»20»255 

42C» 0» 110» 255 

2 ? 3 

282! POKE i 

&C4 A8 » 0 » 250 » 

439)0» 170» 165 

284! POKE 

&C4AC» 0» 220) 


286! POKE 

&C4B0) 0» 250» 

434» 0 » 200 ■ l d 0 
;438» 0)220» 127 

» 2 

287! POKE 
9? 2 

288 ! POKE 

&C4B4» 109)25 
&C4B8»50»25! 

H3C » 0 » 20'3 » 1 4W 
;449» 0» 250» 112 

? 5 

298! POKE 
? 2 

&C4BC» 0» 110 


,100)7 

294 ! POKE &C4C4 ? 8 ? 1 68 ? 1 
? 2 

00) 140 

296ï POKE *0408? 8? 178? 1 
* 2 


p&C5f 

2484 ? 255 ? 29? 10 

s248S? 8? 170? 165 
C 4 0 C ? 0 ? 2 0 8 ? 1 48 
:C4 1 8 ? 0 ? 228 ? 1 27 
: ; C414? 8? 258? 122 
•rd ifl.a, 1 10? 255 


)8? 148 


2 6 2 * P 0 K E & C 4 8 8 ? 8 ? 2 5 8 ? 1 8 2 

J ji 

264 : POKE &C484» 20 ? 255 » i 0 
2)2 

266! POKE 8tC488i0> 170» 165 

? 3 : ■ . . 

268 ’ POKE &C48C ? 0 ? 258 ? 1 1 2 
,5 

270! POKE &C498? 255? 158? 6 
9 ? 3 

272! POKE &C494? 255? 189? 7 


88? 8? uc? 

Ô4 ? 64 ? 64 ? 64 ? 64 ? 64 ? c-h- 
, 64? 64? 64? 64? 64? 64 

1 i 0 s POKE *03 1 8 ? 64 ? 64 ? 64? 

64? 64? 64? 64? 64? 64? 79 
? 4 1 ? 25 ? 9 ? 1 27 ? 127 ? 9 

1 28 ! POKE &C328 ? 9 ? 9 ? 1 27 ? 1 
? 1? 127? 1? 1? 121? 73? 73 
? 73? 79? 64? 64? 64 
138: POKE *0338? 128? 8? 2 
? 0?0? 8? 8? S? 84? 84? 8 

56 ? 0 ? 4? 4? b 

140! POKE *0348? 124? 8? 8? 1 
-> =: . a . s7i » ?, * ? 0 ? 28 ? 1 2 4 ? 8 
4? 

3 ? H ? 









160! POKE 80368? 0! 0 ? 0» 255 
?255?0?0?0ï0j0?0i , yï0 
f 0 ! 8 j 84 

170! POKE 80370 j 84; 84? 56; 

0)4?4? 8) 124? 0) Z? 2? 12 
7)0? 120)4)4 

1 8ü ! PURE &U338 ? 120 ? 4)56? 
68)63)68)56)68)68)63 
? 68? 56? 0? 0? 0? 0 

190! pure &ij390? 0 ) 010 ? 0*0 

? 255? 127?128)0)0)0)0 
? 0 ? 0 ? 0 ? 0 

208 » P UK h 8U3AM ? 8 ? 84 ? 84 ? 8 
4? 56 ? 60 ? 64? 64? 64? 60 ? 
56? 100 ? 84? 68? 56? 64 
210! POKE &C3B0? 56 ? 68 ? 68 ? 
56?0)2)2?i27)8)0)2)2 
? 127 ? 0? 64? 56 

220 ! HUKt 80300 ? 68 ? 68 ? 56 ? 
0)0)8? 128? 127)0)0? 1) 
1 ? 1 ? 121)73)73 
230: POKE &C3B0? 73? 79? 79? 
41)25)9? 127? 127)9)9? 
9? 127? 127)32? 16? 32 
240: POKE &C3E0? 127? 1)1)1 
? 1 ? 1 ? 1 ? 1 ? 1 ? 1 ? 1 ? 1 ? 1 ? 1 
? 1 ? 1 

250! PuKE SL-31-0) 1 ? 1 ? 1 ? 1 ) 1 

) 1 ) 1 ) 1 ) 0 ) 0 ) 0 ? 0 ) 0 ? 0 ) 0 
) 0 ) 8 ) 0 

300 ! POKE 80500 ? 810? 8F3? 8 
45 ? 821? 857? 822? 152? I 
10? &C0? &00? &57? &B2? & 
52 ? S2A ? 886 ? S ! 0 
6 I 0 : POKE 80510? 8F3? 845? 8 
D5? &30? &10? &C5? S09? 8= 
57? 842 ? 852 ? S: 1 0 ? 805 ? 8 
82)857)842)852 
320 : POKE 80528 ? 8 1 8 ? 805 ? I 
11? Sd 2 ? K: 6 7 ? :^c77 ? 870 ? S 
65 ? S0Ü ) R 1 0 ? 8B3 ? 839 ) S 
57)843)852)87E 

330 : POKE 80538? SCS ? S46 ? S 
1 0 ? SCS ? 802 ? S82 ? S45 ? S 
52 ? S 1 0 ? SC5 ? S 1 1 ? S52 ? S 
1 0 ? 8.05 ? &09 ? 8.57 
340: POKE SC540? 875? 832? S 
32? Si f ? 8C5? 800? 810? S 
C5? 802? 802? 845? 852? 8 
10)805)811)852 
358 : POKE 8C550 ? 8 1 0 ? 8B8 ? 8 
09)802)808)852)837)8 
10? 8B8? 809? 802? 803? 8 
32? &10) 805) 802 
360: POKE 8C560? 802) 845? 8 
52 ? 8 1 0 ? 8C5 ? 81 1 ? 852 ? 8 
1 0 ? 8L5 ? 809 ? 802 ? 808 ? 8 
52)810)803)800 
370 : POKE 8C570 ? 857 ? 8 1 0 ? 8 
00? 808? 852? 810? 805) 8 
6F ? 857 ? 842? 852? 818? 8 
05)873)852)870 


380: POKE 80580)805)862)8 
10? 8B8) 806 ) 802? 811?8 

32? 8 1 0 ? 802? SNF ? &02) 8 
80)852)873)802 
390: POKE 80590)892)810)8 
B 8 ? 806 ? 802 ? 8 1 F ? 852 ? 8 
1 0 ? 802 ? SNF ? &02 ? s40 ? 8 
52)878)802)892 
400: POKE 8C5A0? 810? 8B8? 8 
06? 802? 81F ? 852?810?8 
6 2? SftF ? 802? 840? 852? 8 
78? 802? 892? 810 
410: POKE 8C5B0? 8B8? 806? 8 
02? 8 0 A ? 852) 8 1 0 ? 802? 8 
AF ? 802 ? 8B8? 852? 878 ? 8 
02)892)837)8B8 
420!KUKt 80500) 806) 802? 8 
0 A ? S 52? Sl0? 802? 8AF ? 8 
02 ?8B8? 852? 878? 802? 8 
92? 837 ? 8l0? 8B8 
908: WAIT 0 : PR INT V P.P.S 
OFT CALL 811E0 
910: FOR 1=1 TO 5: CALL 8 
0557: NEXT I 


10: REM + + 

20: REM + PROGRAMME 3 + 
30: REM + ECRIT PAR + 
40: REM +PASCAL PRIOUX+ 

50: REM + + 

100: POKE 80100)818)838)8 
00)857)843)852)823)8 
0A?81 1)80 1)857)811)8 

00) 852)878)802 
105: POKE 80110)840)837 

1 10: POKE 80110)810)801)8 
31)857)842)852)803)8 
00? 8l'0?8F8) 801 ? 857)8 
DA? 852? 810? 801 
1 15: POKE 80120)826)857)8 
42)852)867)808)870)8 

01) 824)857)875)807)8 
52)837 

120: POKE 80140)810)801)8 
51)857)843)852)870)8 
0 1 ? 84F ? 802? 83B? 852? 8 
37)8CE)8CE)810 
125: POKE 80150? 8F8? 83B? 8 
5 f ? 866 ? 804 ? 87E ? 80 1 ? 8 
40)857)875)884)852)8 
1 0 ? a l 1 ? a 5 1 ? a r 3 
130: POKE 80160)801)865)8 
79)801)849 

135: POKE 80165)810)801)8 
f 1 ? 80i ? 800? S8i) 853 ? 8 

02) 811? 8FF ? SB 1 ? 84E ? 8 

03) 802)801? 8FF 

140: POKE 80175? 8B1 ? 802? 8 
29? 80E? 837 


145: POKE 80185)810)801)8 
91)803)880)883)853)8 

02) 811? 8FF ) 8B 1 ? 84E ? 8 

03) 802)801? 8FF 

150: POKE 80195)831)803)8 
29)80E?837 

155:P0KE 8C19A? 803? 830?8 
02? 810? 8FF? 8B1? 84E?8 
FF? 802? 800? SFF) 8B1 ?8 
03 ?"829 ? 800 ? 837 
160: POKE 8C1B0)873)8C1)8 
00)810)8B8)802)857?8 
4i ? 852 ? 8 i L ? 80 1 ? SB0)S 
02)820)852)810 

200: POKE 80100)888)803)8 

12) 850)800)801)813)8 
52? 8DD?84C)851) 807? 8 
67)801)870)801 

210: POKE 8C1D0)8E6)810)8 
F3)87B?857) 818) 801)8 
54? 852? 810? 801 )85A? 8 
52)873)801)885 
220: POKE 8C1E0)878?8C1)8 
40)878?811)8E0)878)8 
C1)800)810)8B3)805)8 
57)843)852)870 

230: POKE 8C1F0)8C1)8B0?8 

02) 810)852)873)801)8 
IC? 8CE?810) 80 1?831)8 
57)867?83B)870 

240: POKE 80200)802)803)8 
37)810?8F8?83B)857)8 
67)800)870)802)813)8 
10)802)805)857 
250: POKE 80210)843)852)8 
67)800)870)802)803)8 
37)810)802)805)802)8 
3B? 852? 879? 801 

260: POKE 80220? 8B0? 837 
270: POKE 80240? 810)823? 8 

03) 812)850)800)801)8 

13) 852)822)840)851)8 
07)867)802)870 

230: POKE 80250)802)860)8 
10)8F8)87B)857)85A)8 
52)867)880)828)804)8 
02)801)852)837 
290: POKE 80260)867)804)8 
70? 802? 85F? 810? 8F8) 8 
f B ? 85 ï ? 86 ï ? 80 1 ? 8 i 0 ? 8 
02)872)802)840 
300: POKE 80270)852)837)8 
22)852)837 

900: REM 

920: POKE 8B800? 200? 230: 
POKE 8F37A? 255)1: 

POKE 8B303? 810? 0: 

POKE 80126)01: POKE 
80131)03 

930: POKE 80205? 3B: POKE 
8C1B2? 100 



CO K 


940: WAIT 0: PRINT * 

STAR WARS": 
CALL &11E0 

•945:P0KE &F801, 24, 120,24 
j 24, 120. 31 .2 
947: POKE &F87A, 255,1 
950: CALL &C1B0 


1 : REM 

2: REM + PROGRAMME 4 + 
3: REM + STAR MARS + 
4: REM + ECRIT PAR + 
5: REM + PASCAL PRIOUX+ 

6: REM + + 

7: C=100: B=10: A=0: P=0: 


POKE 

00 

&C2F5 , &78 , 8C5 , 8 

8: INPUT 

"NOUVELLE PART 

IE ? 

*»X$: IF LEFT$ 

<X$, 1 

>="N" LET A=0: 

GOTO 

280 

9: CLEAR 

: C=100: B=10: 

INPUT 

"NIVEAU ? ( 1 

A 10 

> " 5 Q: IF Q< 1 OR 


Q > 1 0 THEH 5 

10: WAIT 0: PRINT "P.P.S 
OFT : ": CALL &C557: 
FOR 1=1 TO 4: FOR J= 
1 TO 10: NEXT J: 

CALL &C500: NEXT I: 
CALL & 1 1 E5 

200: REM 

210: POKE 0800,200,200: 
POKE &F37A, 255, 1 : 
POKE 0803,00,0: 
POKE 8C126,l: POKE & 
C 1 3 1 , 8 

220: POKE 8C205,83B: POKE 
&C1BD,C: POKE 8C1F3, 
B: GOSUB 810 

230: A=A+1 : WAIT 0: PRINT 
ATTAQU 

E "5 A: CALL &11E0 

240: POKE 8F381, 24, 120,24 
,24, 120,31,2: POKE & 
F87A, 255,1 

250: CALL &C1B0: CALL &11 
E5 

260: IF PEEK 8C126>50 
THEH 300 

270:C=C-S: B= INT (C/18): 
P=P+50- PEEK 0126 
88: IF C<0 THEN 400 
90: GOTO 280 

300: WAIT 8: PRINT " C E 
ST FINI ! w : N=10: D=&B 
8: GOSUB 300 


0: WAIT 100: PRINT "LA 
BASE DE L ALLIANCE'’: 
PRINT "ÈST DETRUITE 
PAR LES* 

0: PRINT "FORCES DE L E 
MP IRE": PRINT "APRES 
" 5 A5 " ASSAUTS" 

0: PRINT "IL Y A "iP5" 
SURVIVANTS": GOTO 50 
0 

0: WAIT 0: PRINT "L ALL 
IANCE EST SAUVEE! ! ! " 
0: N=56: D=0: GOSUB 800 
0: WAIT 99: PRINT "VOUS 
AVEZ REPOUSSE": 
PRINT AJ* ASSAUTS": 
PRINT "AVEC "ÜPÎ" SU 
RVIVANTS" 

0 : WAIT 0: PRINT " ENC 
ORE BRAVO !!!...": N= 
10: D=08: GOSUB 800 

0: REM FIN 

3: IF P >R LET R=P: BEEP 
2: PRINT " !** NOUVE 
AU RECORD **!": 

INPUT "VOS INITIALES 
? •'>!$ 

3: PRINT "LE RECORD EST 
DETENU PAR": PRINT 
Zfj" : " $ R! "SURVIVAN 
TS" 

J: INPUT "ENCORE UNE PA 
RTIE ? "5X$: IF 
LEFTf <X$,1)="0" LET 
A=0: C=100:B=10:P=0: 
GOTO 200 
I: END 

iï POKE &C2F5, &CE, &CE, â 
CE: POKE 0806, N: 

POKE 02AF,D: CALL 8 
C292: POKE 8C2F5,878 
,05» 800: RETURN 
• WAIT 8: N=7: D=0: IF A 
=0 THEN PRINT " L 
EMPIRE ATTAQUE !": 
GOSUB 300: RETURN 
SPRINT " MISSION "5 
Ai* REUSSIE": GOSUB 
800: RETURN 


F< 

A 

I 


FONCTIO 
AUTO SU 
PC 1251 


i 


DANS LE BULLETIN N 0 1 0, on trouve une fonc- 
tion RENUM, puis dans le N° 13 nous disposons 
d'un FOUILLEUR au sein du MONITEUR LM. 
Cette fois-ci je vous propose une AUTOnumé- 
rotation en 4 lignes BASIC. Cette fonction affi- 
che les numéros de lignes lors de la saisie d'un 
programme en incrémentant. Il faut en premier 
lieu choisir le premier n° de ligne et la valeur de 
l'incrément. 


MODE D'EMPLOI 


DEF A : Choix ligne et incrément. 

DEFS: Affichage n° de ligne suivante etc. 
jusqu'à 

DEF D : Fin et retour. 

Inconvénient : Il faut toujours taper DEF S après 
ENTER. Qui dit mieux ? En LM ? 

Remarque : Si une ligne existe déjà, ENTER ne 
l'efface pas. 

V. Schadler. 


I N P U T L IGNE? I N C R L M E 
NT? v ? L? I 5 L=L-I:B=&B 8 


yyys v s v l=l 

90) ; B= 


v! y / » b= J, N j (. (. L *“ i y y H 

1 0 > : C=L- 1 00 A- 1 0 B : 
HUKE 1) , A+64» B+64 , C+6 
4: POKE E,3: GOTO 1 


LABELS 



TABLEUR SUR PC-1260-1261 


Si vous utilisez beaucoup d'éti- 
quettes alphanumériques dans 
vos programmes, cet utilitaire 
est pour vous. 


Il liste en effet tous les labels d'un programme 
ainsi que les numéros de lignes où ils se trou- 
vent. Jouez sur le WAIT en ligne 500 pour le 
temps d'affichage ou utilisez LPRINT (si vous 
êtes l'heureux possesseur d'une imprimante. 
RUN 500 (ou GOTO 500) exécute le 
programme. 

Ekkehard Otto 


Une des caractéristiques les 
plus marquantes sur les 
PC-1260/1261 est la possibilité 
d'exploiter des équations sous 
tableur. 

En voici quelques uns qui seront 
utiles je l'espére à d'autres 
SHARPENTIERS. Tous les angles 
sont en degrés minutes secon- 
des. 


T h B L E U P P C 1 2 S 1 ; + ; * 



Ce premier essai peut constituer 
une rubrique régulière, si vous 
le souhaitez, alors à vos PC et 
envoyez nous vos propres 
tableurs. 



5 8 8 ! R = P E E K & 6 6 E 1 + 2 5 6 * 
PEEK &66E2+15 WAIT 5 

510! l= PEEK < A+1 >+256* 

P E E K A ! I F L ) 6 5 8 8 8 
END 

528 B » IF PEEK <h+3)<>34 
GOTO 548 

538î M$= CHR$ 34! FOR 1=4 
T3 1 1 ! K= PEEK < A+I > ï 
IF K =3 4 LEÏ 1=12 

534:fl$=î1$+ CHR$ Xi NE, HT 

sSSsStrt 

535! PR INT U MMil* 

548îA=A+ PEEK <A+2)+3î 
GOTO 518 



R 42, G 3 8 8 8 8 0 8 

Cd £6.30088888 

3 ‘-i 181, 8 8 8 8 8 8 8 0 

HQ 31 . 83594124 

h<i 32,38888888 

y 22.9 8 895541 

:t: w :+: * LISTE T A 3 L E Ü R S : + : : + : * : + : 

D E G 3 '-i î h s. = D T S ( 1 8 8 ~ ( 

D E G C + DE G B ) ) ï y = R # 

S IN DEG h * S IN DEG B** 

SHQl = y* SI N DEG C<i/ S IN 
DEG h* 

Z H Q 2 = T < ( R >■*■' 2 + y 2 ) - < 2 * R * y * 
COS DEG CO) 









“I 


r*. 


Pour je rentrer dans un PC 1 350, il faut dispo- 
ser d une carte mémoire d'au moins 8 Ko (le 

9m ^ esque 5 ko) et de ■'élitaire donné 
par OLPHOUS dans le N° 1 3 page 28, à moins 
que vous ne préféreriez effectuer des POKEs. 
Une fois entré et vérifié sauvez le sur K7 par • 
CSA VE M « RALLY » : &5400,&675F 

mTraIly 62 dès lors le ctiarger par ' CL0AD 

Le jeu débute en tapant CALL&621 8lÊNTË Rj 
Vous aurez droit à la présentation musicale et 
graphique. Par la suite CALL &621A évite la 
petite démo. Pour démarrer appuyez sur plu- 
sieurs touches simultanément. 


RALLY 

<c) I/O Pio 


5400 
5408 
5410 
5413 
5420 
5428 
5430 
5438 
5448 
5443 
5450 
5458 
5460 0 
5468 
5470 
5478 
5480 
5483 
5490 
5493 
54A0 
54AS 
54B0 
54B8 
5400 
5403 
54B0 


00 1 S0055803C00A A : 5' 
003C0055004200AA: ?î 
00420055008 130AA: 02 

00810055000000AA: 83 
00o4805500FF00AAî 82 

00340055000000AA; 83 

0026885508FB00AA: 20 
00120055002000AA: 31 
00800055000600AA:05 
00220055002300AA : 44 
0022005500FB00AA: 10 
002A0055002B00AA: 54 
00220055000600AA: 27 
00000055008 100AA: 80 
00810055008100AA: 01 
00FF8055003100AA: 7F 
003100550081 00AA: 01 
00000055003100AA:80 

00810055004200AA: r-:> 

00420055003C80AAJ 7B 
003C0055081800AA: 53 
00000055000000AA : 
00000055000000A A jp F 
S0000055000000AA : pp 

00000055000000 pf 

13001 3553C003CAA : A7 
3C003C55420042AA: FB 


ipjetjilpermettent de bouger de haut en bas 
(en fait de gauche à droite), tandis guelSPCi 
augmente la vitesse alors queÜTE|se^ 
pédalé de frein. 

Les autres commandes sont iMOD ioour fiqer 
le feu, histoire de souffler un peu,HMÈBpour 
reprendreensiAe,îÇLSjpour revenir sous Basic. 

De P |us ÆîïïI®permet de recommencer à nou- 
veau le circuit. 

ATTENTION aux carambolages vous n'avez 
que 3 voitures. 

PT gare à l'alcootest ! 


J.F.V. 


54B8 420042553 1 008 1 AA : 85~ 
54Eti 81008!55800000 aa:0i 
c?-- T855810084AA: FB 

•-'4i-0 31003455810084AA:09 
54F8 7F807855000000AA: "8 
5500 030000553C00F4AA: 
5503 C0000055000000 aa:bf 
J 51 0 31000E5581001 1AA: 

5513 FF00 1155310011 AA : Ai 
•j520 8100FE55000000AA: ?e 
5523 8 1003 1555 10081 AA: 03 
55^0 42004255420042AA: 07 
55id iO0ü3C553C003CAA: EF 

jj4b 1800185500000000:05 
5548 0000000000000000. gg 
5550 0000000000000000. gg 
5553 0000000000000000. gg 

5üb0 55555500AAAAAA00: FB 
55b8 55555500AAAAAA00:FB 
55^0 55555500AAAAAA00:FB 
55 i 3 55555500AAAAAA00:FD 

5580 



HAUT POUR PC 1350 

complexe un autre leu «yf<2! î ?** f 7 e Y l,aitf ,#us * es •*»*" 

v«„ pfflrtJuK toïie 3S? -,re, " ,n •* * 


^”^0ftAAAAA00:FB 
JJ-0 55550000AAAA0000:fe 
5598 55550000AAAA0000:)pe 
5580 55550000AAAA0000: FE 
«f? 55 550007AAAA0007:0C 
55B0 55550007AAAA0007: 00 
55B8 55550007AAAA0007:0C 
5500 55000007AA000007:0j 


JWt ' ur toiHHBMi-h07:09 

jjB8 5500FE7FAA00FE7F:F9 
•j 5E0 5500FE7FAA00FE7F:F9 
55E8 5500FE7FAA00FE7F: F9 
^5r0 5580FE7FAA000000: 70 
cÆ 55000000AA000000. Fp 

■Jbm j5t)00000AA000000 ; pp 

5688 55000000AAFE7F00: 7C 
5610 55000000AA00000 0 . F p 
5613 55000000AA000000:pp 
5620 55000000AA000000.pp 
j628 5500FE7FAA000000; 70 

55000000AA0000gg.pp 

56^8 55000000AA000000;pp 

5640 5-5000000AAFE7P00: 70 
56 4 S il ri 



5658 55000000AA00FE7F: 70 

5bb0 55000000AA000000 ; pp 
5668 55000000AA0Rflflia0.pp 



5680 55 


_ _ _ _ " - -•wv-.-urjrrnoyçiiriÿy; PjT 

Jb88 5500FE7FAA000000: 70 

5690 55000000AA0000gg.pp 
5 ^3 55000000AAF£0gp£. pg 

56A0 55000000AA000000: pp 
56A3 55000000AA000000; pp 
5bB0 5500FE7FAA000000;7 c 
56B8 55000000AA00000g ; pp 

5600 55000000aafE00FE:FB 

Jb03 55000000AA000000 ; pp 
56B0 55000000AA000000: pp 
56B8 5500FE7FAA0000A0 : ?r 
56E0 55000000AA000ggg. pp 

56E3 55000000AAFE00FE: FB 

56F0 55000000AA000000; FF 
^F8 55000000AA000000:ff 
5^00 5500FE7FAA000000: 7q 
5^03 55000000AA000000; pp 
5710 55000000AAFE00FE:FB 
5718 55080000AA00000g : pp 
5720 55000055AA0000AA: FE 
5^23 55005555AA00AAAA:FB 
•j^i0 55005555AA00AAAA: FB 
5733 55005555AA00AAAA: FB 
^48 55005555AA00AAAA: FB 
•^48 55005555AA00AAAA: FB 
5750 55005555AA00AAAA: FB 



ht 

jf68 55550055AAAA00AA: FB 
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U RS-232C 
EN DOUCEUR 


Les micro-ordinateurs utilisent 
généralement un composant 
appelé UARTjUniversal Asynch- 
ronous Receiver Transmitter), 
pour gérer leur voie série. Dans 
ce cas, les applications dévelop- 
pées sur le micro qui utilisent la 
RS-232C sont relativement sim- 

I iles : on envoie les caractères à 
'UART qui se débrouille. D'un 
autre côté, ce que fait l'UART, le 
Microprocesseur peut égale- 
ment le faire à l'aide d'un pro- 
gramme adapté. C'est pour- 
quoi, sur les PC-2500, PC- 1 350 
et PC- 1 450, on ne rencontre pas 
d'UART. 


Dans le principe comment se passe la 
‘transmission : 

Elle est avant, tout basée sur l'envoi d'un carac- 
tère. Celui-ci sera de composé de 7 ou 8 bits 
de données selon les désirs de l'opérateur. A 
ces données on ajoutera un bit de départ indi- 
quant que les données arrivent, 1 ou 2 bits d'ar- 
rêt indiquant que le caratère est terminé, et au 
milieu 1 bit de parité' ou pas de bit du tout, tou- 
jours au choix de l'opérateur. On obtient donc 
le schéma suivant : 



’ ' ’ 718' ‘ ‘ 

1 1 III l 1 

1 

1 ! 2 
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Start Données Parité Stop 


En fonction de paramètres pré-établis on va 
transmettre des bits d'information avec une 
cadence précise dépendant de la vitesse choi- 
sie. Prenons un exemple : OPEN 
« 1 200, E, 7,1 ». Nous aurons : 1 bit de Start, 
7 bits de données, 1 bit de parité et 1 bit de 
stop. Soit la transmission de 10 bits d'infor- 
mation. La vitesse est de 1 200 bauds soit 1 200 



bits par secondes. Pour transmettre un bit il 
faudra 1 /1 200 seconde soit 8.33E-04 seconde. 
Ce caractère sera donc transmis en 8.33 mil- 
lièmes de seconde. 

Côté PC, il va falloir gérer cela et envoyer un 
bit tous les 8.33E-04 seconde. Pour nous allons 
devoir travailler au niveau du temps de cycle 
du microprocesseur. Nos PC utilisent un quartz 
de 768 KHz, le temps de cycle du MCP est 
donc de 1/768 000 multiplié ou divisé par une 
valeur qui s'obtient en regardant le fonction- 
nement d'une instruction à l'oscilloscope. Cette 
valeur étant 3 on obtiendra comme temps de 
cycle 3/768 000 soit 
3.90625E-04/3.90625E-06 seconde. 

Par conséquent pour transmettre des informa- 
tions il faudra à 1 200 bauds qui il s'écoule 
8 . 33E-04/3 . 9062 5E-06 cycles entre deux bits. 
Le programme devra donc fonctionner en envi- 
ron 213 cycles et s'articuler ainsi : 

• envoi du start bit. 

• envoi des 7 bits de données. 

• envoi de la parité. 

• envoi du bit de stop. 

Avant de passer au programme lui-même, il 
reste à voir ce qu'est la parité. Elle sert à con- 
trôler si le caractère a bien été transmis. Il s'agit 
ici de transmettre un 1 s'il y a un nombre paire 
de bit à 0 dans le caractère transmis. 
Voyons donc maintenant le programme néces- 
saire à la transmission d'un caractère en OPEN 
« 1 200, E, 7,1 » et ce sans contrôle du flux ; 


Pour utiliser ce programme, il suffit de mettre 
le caractère à transmettre dans A et d'appeler 
celui-ci. 

Remarques : entre 2 OUTF, il y a toujours 21 3 
cycles de façon à contrôler la vitesse. Les 
NOPT qui font 3 cycles sont utilisés pour que 
le prg. soit aussi long quelque soit le chemin 
pris lors de l'utilisation d'une instruction JRxxx 
qui fait 7 ou 4 cycles (7=4+3). 


Label 



Nbre cycle 

Commentaires 

(SENDD) 

EXAB 


3 

sauve le carac. à émettre dans B 


LP 

&0B 

2 

P pointe sur N le compteur de parité 


ANIM 

&00 

■I— » 

N=0 remise à 0 du compteur 


LIP 

&5E 

4 

P pointe sur le port F où se trouve TD 


ORIM 

&08 

■Amhh 

Force le bit 3 à 1 TD=1 


OUTF 


3 

émission TD à 1 envoi du bit de Start 


WAIT 

&08 

14 

attente de 14 cycles 


LII 

&06 

4 

1 = 6 longueur - 1 du mot à transmettre 

(SND3) 

WAIT 

&A3 

169 

attente de 169 cycles 


LIP 

&5E 

■IMM 

P pointe sur le port F 


EXAB 


3 

récupère le caractère à émettre 


SR 


— ■ 

met dans le carry le bit le plus faible 


EXAB 


3 

resauve le caractère â émettre 


JRCP 

(SND1) 

7/4 

si bit a 1 on va en SND1 


NOPT 


WÊÊÊÊÊÊÊË 

attente de 3 cycles 


ORIM 

&08 

4 

TD = 1 


OUTF 


— — 

envoi d'un bit de donnée à 1 


JRP 

(SND2) 

7 

on va en SND2 

(SND1) 

ANIM 

&F7 

4 

TD=0 


OUTF 


ritan 

envoi d'un bit de donnée à 0 


INCN 


4 

N = N + 1 compteur du nbre de 0 transmis 


NOPT 


IglÉllllllMI 

attente de 3 cycles 

(SND2) 

DECI 


4 

1=1-1 compteur de bit à transmettre 


JRNCM 

(SND3) 

7/4 

saut en SND3 si on n'a pas fini le mot 


WAIT 

&A6 

172 

attente de 172 cycles 


LP 

&0B 

2 

P pointe sur le compteur de la parité 


LDM 


Ilillilillill 

A=(P) dans A on met le nbre de 0 transmis 


LIP 

&5E 

4 

P pointe sur le port F 


TSIA 

&01 

4 

Test du bit 0 à A 


JRNZP 

(SND4) 

7/4 

Saut en SND4 si nbre impair de 0 


NOPT 


3 

attente de 3 cycles 


ORIM 

&08 

4 

TD= 1 car nbre pair de 0 dans le mot 


OUTF 


3 

émission de la parité à 1 


WAIT 

&91 

151 

attente de 151 cycles 


JRP 

(SND5) 

7 

saut en SND5 

(SND4) 

ANIM 

&F7 

4 

TD = 0 car nbre impair de 0 dans le mot 


OUTF 


3 

émission de la parité à 0 


WAIT 

&98 

158 

attente de 1 58 cycles 

(SND5) 

WAIT 

&26 

44 

attente de 44 cycles 


LIP 

&5E 

4 

P pointe sur le port F 


ANIM 

&F7 

4 

TD=0 


OUTF 


3 

émission du bit de stop 


WAIT 

&CF 

213 

attente de 212 cycles 


RTN 


MM 

retour au ssp. appelant 


Attention : 

• la ligne reste à 0 ou à 1 pendant 8.33E-04 secondes. 

• le bit de start est un 1 . 

• les données sont transmises ici sur 7 bits. 

• la parité paire est à 1 si le nombre de.O est pair. 

• le bit de stop est un 0. 

A l'aide de ce programme et de ces renseignements, écrivez le programme de lecture de données 
associé à celui-ci. La prochaine fois, nous verrons la réception et nous aborderons le problème 
du contrôle de la ligne. 

I.S 


GERER UN MENU. 


4 lignes, c'est bien. Mais encore faut-il s'en ser- 
vir. Présenter un programme, faire des menus... 
L'intérêt d'un menu est de proposer un choix 
en fonction duquel on se branchera sur divers 
sous-programme. Bien, mais comment se bran- 
cher sur un SSP ? 

Il n'existe pas une méthode, mais une multi- 
tude. Voyons en, tout d'abord une propre aux 
pockets : 

Exemple : 

10 INPUT « PRG1 » ; A$ : GOTO 60 

20 INPUT « PRG2 » ; A$ : GOTO 70 

30 INPUT « PRG3 » ; A$ : GOTO 80 

40 INPUT « PRG4 » ; A$ : GOTO 90 

50 GOTO 10 

60 CLS : PRINT « PRG1 » : END 
70 CLS : PRINT « PRG2 » : END 
80 CLS : PRINT « PRG3 » : END 
90 CLS : PRINT « PRG4 » : END 
Ce programme aura pour effet d'afficher suc- 
cessivement chacun des choix, et de recom- 


mencer au 1 er si l'on presse ENTER sans avoir 
pressé au préalable un autre caractère. 

En effet lorsque l'on presse ENTER sans avoir 
mis quoi que ce soit dans l'INPUT, la fin de la 
ligne sur laquelle celui-ci se trouve est entiè- 
rement ignorée, et le contenu de la variable ser- 
vant à l'INPUT est conservé. 

Ainsi, on crée un petit menu qui donne les choix 
au fur et à mesure. 

On peut aussi s'en servir pour faire un choix 
avec une priorité, en affichant le menu au 

nréalohlo * 

10 CLS: WAIT 0: PRINT «1 : PRG1 4: 
PRG4 » 

20 PRINT « >2 : PRG2 » : PRINT » 3 : PRG3 
30 A = 2 : INPUT « CHOIX : » : A 
40 ON A GOTO 60,70,80,90 
50 GOTO 10 
60... 

Ainsi, si l'on presse ENTER directement, on 
exécutera le programme numéro 2. 


Utilisation de l'instruction INKEY$ 

INKEY$ va nous renvoyer le caractère pressé 
pendant une scrutation. Pour cette instruction 
aussi les utilisations sont multiples. 

30 PRINT « CHOIX : » ; 

40 A = VAL INKEY$ : ON A GOTO 

60,70,80,90 

50 GOTO 40 

Dans ce cas, si aucune touche n'est pressée 
A = 0 donc on boucle sans fin. Il en va de même 
si A 2 4. 

On peut aussi forcer la boucle si aucun carac- 
tère n'est pressé. 

40 A$=INKEY$ : IF A$ = « »THEN 40 
50 IF A$<« 1 » OR A$ > « 4 » THEN 40 
60 IFA$ = « 1 »CLS : PRINT « PRG1 » : END 
70 IF A$ = « 2 » CLS : PRINT « PRG2 » : END 
80 IF A$ = « 3 » CLS : PRINT « PRG3 » : END 
90 CLS : PRINT « PRG4 » : END 
Le choix de l'instruction à employer est fonc- 
tion du programme. Généralement on n'utili- 
sera pas 2 fois la même méthode. 

Ainsi, pour tester un choix avec des lettres on 
pourra faire : 

10 CLS :WAIT 0 : PRINT « Avant Dernier » 
20 PRINT « Bete » : PRINT « Chien » 

30 ON ASC INKEY$— 840 GOTO 60,70,80,90 
40 ... Reprendre l'avant dernière version. 

A vous les menus les plus fous. 

I.S. 



L'AUTOMNE 
DU 2500 


C'est l'automne et les feuilles tombent... du 
tableur dans le basic... 

Le tableur gère ses feuilles comme des tableaux 
de variables. Ces variables se caractérisent par 
le symboleÇX On rencontre les variables 
suivantes : 

V«>$(0,1)*80,)@$(0,0)*16,X@{0,4),Z@ 

(1),B©$(2,1)*12,Z@$(5)*80 

W@>$(0)*16,U@$(1)*80,U®(4)... 

Pour s'en servir sous BASIC, il suffit de les 
transformer en quelque chose de normal : par 
exemple changer les® en A. 

C'est ce que fait le programme suivant lorsque 
l'on fait RUN (pour rétablir l'état normal des 
variables tableur faire DEF SPACE). 


Soit RUN pour l'effet Automne et DEF SPACE 
pour l'effet Printemps. Le programme vous 
donne le nom des variables en mémoire, leurs 
dimensions et leurs longueurs. L'adresse indi- 
quée en tête correspond au début de la 
mémoire variable. 

La variable XA$(,)*16 contient le noms des 


tableaux et la variable VA$(,)*80 contient les 
formules. 

En reprenant des parties du tableur, il est pos- 
sible de récupérer des feuilles provenant par 
exemple d'un 1 350 ou d'utiliser le 516P pour 
imprimer les tableaux. 

I.S. 


10: CLEAR :A= PEEK &6D97+256* PEEK 8.6D9 
8+1 : LPR1NT "Adr-: ; A- ul=A -1- X=1 
20: IF A>&6C4F BEEP 2- END 
90.. LPRINT CHR$ PEEK <A~1>+ CHR$ <T&40 + X 
5+ CHR$ <32+4*C2> PEEK A)) + ,: <" + . 

STR$ PEEK CA+4>+" .< "+ STR$ PEEK CA+3 
!> + ">*" + STR$ PEEK ( A+5) 

40: PQKE A > PEEK A AND &FE OR X:A=A+4+ 
PEEK <A+1>*256+ PEEK CA+2): GOTO 20 
50: :: POKE &6D97 > W-256X INT CW/256), 

INT CW/256) : A=W+l: X=0: GOTO 20 




INITIATION AU LM ESR-H 

1" PARTIE 


Devant une demande sans cesse 
croissante d'explications sur le 
LM des PC, équipés du micropro- 
cesseur SC 6 1860 (ESR-H), voici 
un avant propos de ce qui sera 
je l'espère, une initiation facile 
à comprendre à tous et à toutes. 
Vos critiques et suggestions sont 
évidemment les bienvenues. Au 
fait, sont concernés tous les PC 
sauf 1500, 1430, 1246/47. 


Comme certains ont déjà pu le constater, nous 
avons abondamment parlé de ce LM, en 
publiant des programmes, dont les commen- 
taires étaient parfois succints. Les plus coura- 
geux de nos lecteurs (ou les plus mordus ?) ont 
donc acquis les différents manuels techniques 
en anglais, disponibles au Club. Le manuel 
dédié au PC 1 251 convient tout à fait pour les 
autres machines, hormis les PC 1 350 et 2500 
qui ont leur propre littérature. Ces manuels qui 
ne seront pas traduits, sont un guide très pré- 
cieux et ne font pas double emploi avec cette 
série d'articles. Ils serviront d'ailleurs, à main- 
tes reprises, de Référence. 

Commençons sans plus attendre cette petite 
mise au point. Prenons un PC au hasard, nous 
savons qu'il est programmable en Basic. Mais 
ce que nous ne soupçonnons pas toujours, 
c'est que la machine ne comprend pas direc- 
tement ce Langage évolué. Il faut ce que l'on 
appelle un Interpréteur, qui est un programme 
en LM (le plus souvent et dans ce cas en 
mémoire morte). Cet interpréteur est chargé de 
traduire et contrôler par le MCP (Maitre Con- 
trôle Principal), qui est le programme régissant 
toute la machine : Calcul, allumage, affichage, 
etc... Mais comment celà se passe-t-il grosso 
modo ? Tout d'abord, lors de la saisie d'une 
ligne en mode programme, la machine (qi ne 


qui n'ont pas d'accès au LM. Les 
puristes me pardonneront 
volontiers je pense, quelques 
abus de langage ; ces articles 
étant avant tout destinés au 
débutants, connaissant le Basic. 
Les lecteurs confirmés peuvent 
sauter quelques leçons. Vous 
pourrez aussi consulter avec 
profit les articles consacrés au 
Z80 : Le LM des MZ. 


peut conserver que des valeurs numériques), 
code les mots clefs avec une valeur appelée : 
Tooken. Elle la trouve au moyen d'une table, 
comportant la liste de ces mots réservés, avec, 
comme information majeure, le nom en ASCII, 
le tooken, l'adrese du s/pgm LM correspondant. 

Les caractères eux sont codés sous forme de 
code ASCII (sauf pour le PC 1251). Car je rap- 
pelle qu'un ordinateur ne peut traiter que des 
nombres dans un intervalle bien défini : L' AS- 
CII est une normalisation des codes utilisés 
pour les caractères usuels. Le nombre de codes 
possibles étant de 256 à la fois, il peut s'avé- 
rer (si on a plus de 256 « choses » à coder), 
que la machine fasse appel à un double 
codage ; pour les caractères japonais entre 
autres, mais nous y reviendrons plus tard. Ces 
codes ne sont en aucun cas, à confondre avec 
les OP codes (codes machines), qui sont les 
seuls codes, qui forment les pgms LM exécu- 
tables par le microprocesseur. Mais n'allons pas 
trop vite. Une fois les lignes codées, on passe 
généralement en mode RUN, et lance le Basic 
par RUN, GOTO ou DEF label. A ce moment 
le MCP active l'interpréteur qui cherche le pre- 
mier code du pgm Basic à exécuter. Si c'est 
un Tooken, il recherche en table le sous pgm 
LM correspondant, et récupère si besoin est 
d'éventuels paramètres. Il décèle aussi les 



erreurs s'il en trouve, et ce, jusqu'à ce qu'il ren- 
contre un ordre interrompant son travail : à ce 
moment il rend la main au MCP. Voila en 
« gros » comment marche le Basic. Nous 
voyons que tout se passe indirectement, or il 
est possible de s'adresser directement au 
microprocesseur, au prix d'une programmation 
plus ardue, ne laissant pas le droit à l'erreur, 
mais emportant des satisfactions tant pour l'es- 
prit que pour l'usage : gain de place, gain 
énorme de rapidité, des possibilités inexploi- 
tables en Basic. Par contre il est illusoire de tout 
vouloir faire en LM. Nous verrons plus tard, 
comment exploiter des sous-pgms (routines) 
touts faits, présents en mémoire morte. 

Pour vous prouver qu'au Club nous ne sommes 
pas des extra-terrestres, nous allons mainte- 
nant tenter d'exploiter le vocabulaire un peu 
ésotérique relatif au langage machine. On con- 
fond souvent LM et Assembleur. L'assembleur 
est en fait un pgm (en LM tout comme l'inter- 
préteur Basic), qui permet de programmer ce 
LM avec plus de confort. En effet, il permet 
d'écrire un pgm LM avec une syntaxe bien pré- 
cise, à l'aide de mots appelés Mnémoniques, 
car ils signifient quelque chose en anglais : 
exemple : LIA donne Load Immédiate valeur 
dans Accumulateur, ou SWP donnant SWAP 
etc... L'assembleur se charge donc de convertir 
ces mnémoniques en codes machines, suivis 
ou non d'opérandes (paramètres). Le désas- 
sembleur fait l'opération inverse, il traduit des 
codes machines en mnémoniques. Car il est 
plus simple de comprendre, écrire et raisonner 
à l'aide du mot RTN, plutôt qu'avec son code 
&37. Nous parlons souvent d'adresse, derrière 
ce mot se cache une notion simple mais impor- 
tante. En effet, une adresse c'est une valeur 
comprise entre 0 et 65535 ; elle permet de 
réperer un octet, tout comme le numéro sur 
votre porte indique au facteur votre logis. C'est 
le numéro précis d'un octet, on peut donc en 
avoir 65536 de suite. Un octet c'est une case 
- en fait un groupe d'informations élémentai- 
res - refermant une valeur comprise entre 0 
et 255. Chaque case (octet) a un numéro 
d'identification (l'adresse), et renferme une 
information (code). Les informations élémen- 
taires d'un octet sont appelées bit : binary digit. 

Ils sont au nombre de 8 pour un octet (4 pour 
un quartet = demi-octet). Un octet comprend 
donc 8 bits. Chaque bit peut prendre 0 ou 1 
comme valeur. D'une manière imagée nous 
avons des cases identifiées par un numéro, 
comportant 8 compartiments contenant 0 ou 
1 . Un bit qui veut dire « chiffre binaire » est la 



plus petite information possible. Nous voila 
donc en base 2. Comme le micro ESR-H est un 
8 bits, il peut traiter des informations de 8 bits 
simultanément (octet), et possédant un bus 
d'adresses de 16 bits, il peut donc traiter 
2 A 16 =65536 octets. Nous y reviendrons la 
prochaine fois, quand nous verrons en détail 
l'architecture du SC 61860. Voyons mainte- 
nant la représentation d'un octet en binaire : 
bit no 7 6 5 3 2 1 0 
b7 b6 b5 b3 b2 bl bO 

octet 

= b7*2 A 7 + b6*2 A 6 + b5*2 A 5 + b4*2 A 
4+b3*2 A 3+b2*2 A 2 + b1*2 A 1 +b0*2 A 0 
- b7*128+b6*64+b5*32+b4*16 
+b3*8+b2*4+b1*2+b0*1 
valeur max 

= 128+64 + 32 + 16 + 8+4+2+J =255 
valeur min = 0 

En pratique, on travaillera en binaire pour les 
opérations logiques agissant sur les bits d'un 
octet. 

A propos de base, nous utiliserons la base 16 
(hexadécimale), qui est plus commode pour 
diverses raisons qui s'expliqueront d'elles 



mêmes, mais aussi parce qu'elle permet de 
noter la valeur maximale d'un octet (255) sur 
2 caractères, et les adresses sur 4. On compte 
donc ainsi : 

DEC O 1 2 3 4 5 6 7 8 9 10 11 12 
13 14 15 16 17 etc. 

HEX O 1 2 3 4 5 6 7 8 9 A B C D E 
F 10 11 etc. 

On obtient ainsi 2 quartets que l'on utilise sépa- 
rément pour les conversions binaires*-* HEXA. 

Chaque quartet pouvant prendre comme valeur 
max. 15= 8+4+2 + 1, celé donne &F. Donc 
on a pour un octet de valeur 10010110. Le pre- 
mier quartet 1 001 vaut : 8 + 1 = 9. Le second 
0110 vaut : 4 + 2=6. Donc 

10010110= &96= 128 + 16+4+2= 150. 
Et le tour est joué. 

Vous avez pu aussi remarquer que nous pré- 
sentions toujours nos listings LM (mêmes 
désassemblées), sous forme de DUMP. Beau- 
coup se demandent ce qu'ils doivent en faire. 
Ce DUMP est la représentation de la mémoire 
du PC, à partir d'une certaine adresse. Les 
valeurs sont toutes en héxa. Sur une ligne, de 


gauche à droite, on trouve une valeur sur 4 
caractères : l'adresse. Suivent ensuite accolés 
deux à deux, séparés, ou complètement sou- 
dés, 8 octets ; ils prennent chacun 2 caractè- 
res. Eventuellement, il reste une dernière valeur 
sur 2 car. aussi, qui est la somme des 8 octets 
précédents. Il permet un contrôle rapide lors 
de la saisie : c'est le Checksum. Donc, 
l'adresse à chaque début de ligne varie de 8 
en 8, elle correspond au premier octet de la 
ligne. Ce dump se rentre en mémoire à l'aide 
d'un utilitaire (il y en a de publiés dans les bul- 
letins) ou grâce à l'instruction POKE adresse, 
octetl, octet2, etc... 

Voilà, c'est tout pour aujourd'hui. La prochaine 
fois nous ausculterons le microprocesseur, en 
tachant de comprendre ce que sont les regis- 
tres, et leur utilité dans les pgms LM. 

A bientôt ! ! 

J.F.V. 


SOUS-PGM IM ESR-H 


En complément nu « TiCHNICAL REFERENCE MANUEL », nous vous 

E roposons une première série de sous programmes utilitaires vala- 
les pour tous les PC équipés du processeur ESR-H 


SOUS-PGfl Ln 

PC 1245/51/55 

PC 1260/61 

PC 1401/02 

PC 1350 

LCD ON 

11E0 

043B 

05A2 

04B1 

LCD ÛFF 

11E5 

0437 

059E 

04AD 

STX : BA— >X 

•11E9 

0225 

0267 

0282 

DSTX : BA-1-- >X 

•11F1 

022E 

0270 

0297 

STY : BA — >Y 

11EE 

0222 

0264 

027D 

DSTY : BA-1-- >Y 

11F5 

0242 

0278 

02B5 

BA— ><P+1jP> 

11EA 

0226 

0268 

027E 

NUXY : Y — >X 

1172 

1349 

15F3 

1419 


1177 

1344 

15EE 

1414 

PUSH X 

11C7 

102E 

1321 

115C 

POP X 

11D2 

1039 

132C 

1167 

OUT C j A 

1FB1 

043D 

05A4 

04B3 



























































LISP 

trnTdîï g^ KMAWOîKlolw,^. 

•» adapté ■** ‘""S 8 ** •• Hervé PANtTTO. 

aracfonsliques spécifiques des l, ? p *° esf disponible ou club au 

O • Son auteur (Devinez qui... J, P«* compris). ef 


lanaaapml C h° mP0Se d ' Un noyau ' écrit « 
langage machine, assez complet puisou'il 

r: d ,a p,upa * des instruct/onsTpo 

"îï? aur ,e f quelques rares Lisps d/spo- 

nibles dans le commerce ainsi que celles 

décrites dans quelques (trop rares eux 

auss" °uvrages sur ce langage S 

oTi s u, "““ rs * *»■ 

Dans ce noyau, on trouvera les instructions 

au MZ 70n U ÜSP P ' US d6S ° rdres s P éciau * 
MZ-700 permettant de manipuler l'im- 

pnmante, en mode texte et grapWque ou 
lécr^n ^nrV 1 ?"' 65 ® em, ' gra Phiquessur 


vvuuiiai 

USP : LANGAGE 
“iSmUGINCE 

artificielle 

mpnt nlrl programmin 9) appelé inconsidéré- 
ment par les « non adeptes » : Lanqaqe Insi 
P-de Stupidement Parenthésé est unlZ' 
évolué spécialisé dans la manipulation dto- 

améliorations et connaît 

dialectes qui bientôt seront peut-être tous^éu 8 

ms autour d'un standard . COMMON LIS?' 


rilfï P ° U L plus de précision ' et avec à 
affichage 10 chiffres (13 chiffres inter 

On y trouvera aussi l'instruction SAVE oui 
permettra à l'utilisateur d'enregistrer le Üsn 
muni de nouvelles fonctions écrites qrâce 
aux quatre constructeurs DE DF DI? DM 
associes a LAMBDA FUn/mn*" 
NLAMBDA et MLAMBDA.' 

sa rff e é n C ' a v te îi ,anga 9 e machine aura à 
toufS!' t,on POKE, PE£K, CALL et sur- 
tout, il aura accès au moniteur de la 
mémo, re vive (le même qu'en Basic) pa? 

YE || po urra meme, grâce à une toute 
pente manifjulation, réserver une zone de 

lar. 9 ”"S Vl08erU " |,ro » ra “‘" 

Bernard Kokanosky 


ble si2 MZ * USP *Wi- 

: e sur MZ ' 700 qui ne manque pas d'intérêt 
et qui permet déjà d'écrire d'assez oros nm- 
^ ammes ' Cett e version est le seul langaqe sur 
700 uta toutes les possibilités du MZ to U 

ches de fonctions, RAM 64Ko, graphiques...). 

programmons en usp 

L'objet élémentaire en LISP est l'atome inrfi 

t rinii ' iue ' un s, « 

ST tonS * caractte “ an 

«.■AHHHHHHTOME /voîcf un atome 

4n«7fi 7u n autre 

45676 /ehcore un 


une »ste est une snii 

0 /une liste vide 

NIL /une autre façon de noter une liste vide 
| (une autre) liste () (PLUS COMPuSS 
Toutes structures données (et princ S , 

fnn 8 ? T binaires) se ramènentXcoSuc- 

LlSPestmf PlUS °, U moins impliquées, 
fahtoutpca - 9a9e d0nt ,a Polarité qui en 

ons ont la meme syntaxe et peuvent donc 

préteur LKp 1 ^ 006 ' u ?. r6le ou (autre. Un inter- 
• ■+• con venable connaît au moins 1 00 

esst* 4tre ,acisme, “ ««s? 

aSSS 

I 

preÏÏtrr ette , nt res P ect,vem ent de 
listP nrJj e,emen * (atome ou liste) d'une 
1 er ai f en( ^ re 6 reste d une llste Privée de son 
et ® e T'. P Cer un élément en début de liste 
ca |cu| in 6 P US ' r,1portant, effe ctuer du lambda- 

ex : ?(CAR' (1 2 3 4)) 

= 1 

?(CDR' (1 2 3 4) ) 

= (2 3 4) 

?(CAR (CDR' (1 2 3 4))) 

?(CONS '0 ' (1 2 3 4) ) 

= (0 1 2 34) 

aarac . tère * ' » est un macro-caractère rem- 

sonC«f'™ QUOTE, “ in ' é *^ 

ex : ?(CAR (CDR' (1 2 3 4))) 

?(CAR' (CDR' (1 2 3 4))) 

=CDR 

itkT *' 6 UM6DA permet de construire des 
bons anonymes à usage local 

SÏIh om - â ( * f«. 

irons en utilisant la primitive 'DE 
ex : ?(DE CARRE(X) 
rxxn 
= CARRE 
/(CARRE 4) 

= 16 

Vértfions la présence de l'atome LAMBDA dans 
définition de la fonction par l'utilisation de 


“53 



la fonction PRETTY-PRINT. 

?{PRETTY-PRINT CARRE) 

= (DE CARRE 
(LAMBDA (X) 

C X X) ) ) 

Un programme quel qu'il soit ne peut pas rai- 
sonnablement se concevoir sans tests sur la 
nature de ses éléments. Ceci es possible en 
LISP grâce à une très grande variété de prédi- 
cats et à la primitive COND qui conditionne le 
programme, 
ex : ?(DE CHAR(X) 

(COND (EQ X 0)' ZERO 
(EQ X 1 )' UN 
(EQ X 21' DEUX 
T '(NI 0,NI 1,NI 2))) 

=CHAR 
?(CHAR 0) 

=ZERO 


?(CHAR 1) 

= UN 

?(CHAR 2) 

= DEUX 
?(CHAR 5) 

= (NI 0,NI 1,NI 2) 

La syntaxe de COND est : 
COND TEST1 RESULT1 
TEST2 RESULT2 


pour chaque test vérifié le résultat correspondant 
est évalué. LISP est surtout très puissant dans la 
programmation recursive. La récursivité est la pro- 
priété qu'a une fonction de s'appeler elle-même. 

Ce genre de fonction permet la décomposition 
d'un problème en sous-problèmes de plus en plus 
simples. 

Ainsi l'exemple de la fonction factorielle qui peut 


se définir : n ! =n*(n -1)1 
01 = 1 

? (DE FAC(N) 

(COND (EQ N 0) 1 
T (* N (FAC(SUB1 N) ) ) ) 

=FAC 

(SUBI N) est équivalent à (- IN) 

?(FAC 0) 

= 1 

?(FAC 5) 

= 120 

LISP est le langage de la cinquième génération et 
permet déjà la réalisation de systèmes experts et 
d'analyseurs syntaxiques. Ce langage sera sûre- 
ment celui des traducteurs automatiques qui, pour 
l'instant ne sont qu'au stade expérimental mais qui 
ne tarderont pas un jour à être du domaine public : 
les applications ne manqueront pas. 


BIBLIOGRAPHIE 

LISP LISP, MODE D'EMPLOI PROGRAMMER EN LISP 


Patrick Henri WINSTON, Berthold Klaus Christian QUEINNEC Henri FARRENY 

Paul HORN Eyrolles 1984 Masson 1984 

Addison-Wesley 1984 et d'autres 


SYSTEMES USP 8 BITS 

Sur MZ 700 SurMZ700+CPM 


LISP-0 

P-LISP 

LEOLISP 80 

Un très bon LISP le seul utilisant les carac- 

Très DECEVANT 

Le meilleur LISP 8 bits existant mais introu- 

téristiques spécifiques d'un micro- 


vable sur le marché (on peut le trouver chez 

ordinateur 


son concepteur à Î'INRIA) 


H. PANETTO 


K-BASIC V.5.5. 


ET UNE AMELIORATION 

Il m'a été récemment signalé 
que le K-BASIC avait quelques 
problèmes lors du passage par 
référence de paramétres chaî- 
nes de caractères, uniquement 
lorsque la procédure ou fonction 
modifiait la longueur de ce 

G ramètre. Nous allons modi- 
r légèrement le Basic. 


Comme d'habitude, charger le Basic et lorsque 
la sonnerie retentit, faire Shift Break. Grâce à 
la commande M, changer les octets suivants : 

IOFD 36 (identificateur K-Basic V.5.6) 

5F7D 46 

77DD 08 Puis, à partir de 7E4A, entrer les octets : 

77E5 4C OB OB CD 12 66 13 13 C9 

77E6 6C A partir de 7F44 entrer : 

77FA 07 7E 87 4F 06 00 09 23 EB 09 23 EB 4E 23 46 2B 03 03 C3 

7806 4A 24 67 23 56 23 71 23 70 23 C9 

7807 6C Enfin, à partir de 791 5, on entrera : 

7848 CD 4E 23 46 23 E5 69 60 FE 80 D2 44 6D 01 03 00 D5 EB C5 

7849 58 ED BO Cl DI El ED BO C3 OB 67 

784A 6D 


Avec cette correction, les difficultés signalées 
aux pages 26 et 27 de la documentation, dis- 
paraissent totalement ! 


Nous allons profiter de cette correction du 
Basic, pour lui ajouter deux instructions DEEK 
et DOKE dont le fonctionnement est presque 





identique à PEEK et POKE, mais qui travaillent 
sur deux octets consécutifs : Par exemple 
DOKE §F000,§A901 placera 01 dans la 
mémoire n° FOOO et A9 dans la mémoire F001 . 
Inversement PRINT DEEK(§F000) donnera 
43265 (soit SA901). 

Pour DEEK 

Nous lui donnons le code FF A9. 

Il faut d'abord décaler la troisième table des 
mots-clés du Basic. Pour cela, grâce à la com- 
mande M, nous écrivons, à partir de 9000 :11 
F5 81 21 F2 81 01 5F 00 ED B8 C3 AD 00. 
Et nous faisons J9000 qui réalise le décalage. 
Puis nous écrivons dans les octets 81 93 et sui- 
vants : 44 45 45 CB. 

L'adresse de la routine sera 6C3E qui sera pla- 
cée dans les octets 
844F 3E 
8450 6C 

Nous écrivons alors la routine à partir de 7E3E : 
21 Al 72 CD 5B 36 5E 23 56 C3 26 51. 
Pour DOKE 

Ce mot-clé doit se trouver avant DO dans la 
première table. J'ai pensé lui donner le code 
9A, celui de CONT et de donner à CONT le code 
CD. Cette transformation n'est pas gênante, 


puisque CONT n'est utilisé qu'au clavier et non 
dans un programme. 

Il faudra donc décaler la première table des 
mots-clé. On modifiera légèrement le pro- 
gramme de transfert situé à 9000 en écrivant 
dans les octets 

9001 F4 

9002 7C 

9004 Fl 

9005 7C 
9007 9D 

On fera ensuite J9000 ce qui réalise le 
transfert. 

On écrit ensuite dans 

7C54 43 

7C55 4F 

7C56 4E 

7C57 D4 

et dans 

7B88 44 

7B89 4F 

7B8A 4B 

7B8B C5 

Ensuite on place dans 

8313 23 

8314 6C 


et dans 
8379 60 
837A 20 

Il reste à écrire la routine en plaçant, en 
mémoire, à partir de 7E23 les octets : CD 50 
48 CD E4 67 D5 CD 50 48 E3 73 23 72 23 
EB El CD 42 4F FE 2C CO 23 C3 29 6C et à 
ré-enregistrer le Basic. 

On remarquera que la syntaxe DOKE adresse, 
valeur, valeur, valeur... est acceptée. 

Après toutes ces modifications, les zones libres 
du Basic sont : 

Zone 1 : de 6AF5 à 6C22 (302 octets) 

Zone 2 : de 6D41 à 6D43 (3 octets !) 

Zone 3 : de 6FF6 à 6FFC (7 octets) 

UNE PREMIERE UTILISATION 

Lors de l'utilisation de CTRL L pour lister les 
variables sur l'imprimante, il se peut qu'il soit 
inutile de lister les tableaux, ce qui consomme 
beaucoup de papier. On fera DOKE 
§6DC9,§6DD5 et la routine sautera les 
tableaux. DOKE §6DC9,§6C52 redonnera le 
fonctionnement normal. 

B.Kokanoski 


FORTH 

LE COIN DU FORTH... NE... ! 


Me revoici, pour vous parler à 
nouveau de votre langage pré- 
féré... Forth, ou plutôt d 'Edi* 
forth, son implantation chère à 
la famille MZ. 

Dans mon précédent article, où 
entre nous il était bien difficile 
de trouver un seul défaut au lan- 
gage Ed i forth, ses principaux 
concepts étaient détaillés. 
Avant de vous livrer aux joies 
de l'interprétation et de la com- 
pilation aie mots nouveaux sous 
Ediforth, je vous propose une 
brève révision. 


Machine Forth 

Forth est un langage dont le fonctionnement 
ressemble à celui d'un microprocesseur 16 bits 
qui serait doté d'instructions comparables en 
puissance, à celles d'un langage évolué tel que 
Basic, ou bien encore Pascal. D'ailleurs, un 
microprocesseur dédié à Forth a été mis récem- 
ment sur le marché. 

Mots Forth 

Les mots Forth qui sont l'équivalent des ins- 
tructions des autres langages, sont construits, 
soit en faisant appel à d'autres mots Forth, il 
s'agit alors de mots de haut niveau, soit à l'aide 
de routines en langage machine, on parle dans 
ce cas de mots de base ou primitives. 

De ce fait, programmer en Forth consiste sim- 
plement à construire de nouveaux mots, à 
l'aide des mots déjà existants. 

Tous les mots de votre version d 'Ediforth peu- 
vent être visualisés en tapant le mot "VUST", 
ou imprimés en frappant la séquence suivante : 
"PRTON VLIST CR PRTOFF" 

Ce bel ensemble de mots que vous venez d'ob- 


tenir, par les manipulations ci-dessus, tous 
moins parlant les uns que les autres, je vous 
l'accorde et que vous allez apprendre à décou- 
vrir dès aujourd'hui, forme le dictionnaire 
d 'Ediforth. 

Piles Forth 

L'un des moyens utilisés par les mots Forth 
pour se passer de l'information, caractères, 
nombres ou adresses, ceci étant affaire de con- 
vention, c'est la pile de données. Son fonction- 
nement est en tous points comparable à la 
fameuse pile d'assiettes, du plus haut placard 
de votre cuisine... ! 

Tous les mots Forth qui entrent dans la com- 
position d'un autre mot, sont traités par la 
machine Forth comme autant de sous program- 
mes à exécuter. Celle-ci stocke donc les adres- 
ses de retour correspondantes, sur une autre 
pile : la pile des retours. 

Modes de fonctionnement de Forth 
Lorsque Forth exécute un mot ou une suite de 
mots, entrés au clavier ou à partir d'un péri- 



phérique, il est en mode interprétation. Par con- 
tre, lorsqu'il crée la définition d'un nouveau mot 
dans son dictionnaire, il est en mode 
compilation. 

Standardisation de Forth 
Les implantations de Forth qui répondent au 
standard Fig-Forth ont un noyau d'environ 220 
mots communs, ayant les mêmes noms et un 
fonctionnement identique. C'est le cas des dif- 
férentes versions d'Ediforth dans lesquelles 
seuls quelques mots inutiles ont été supprimés. 
Une application, bâtie uniquement à l'aide de 
mots de ce noyau, est réputée pouvoir fonc- 
tionner sur n'importe quel ordinateur, doté 
d'une implantation Forth conforme au 
standard. 

Après ce bref rappel des principaux concepts 
de Forth... 

DES MOTS POUR DEBUTER EN FORTH 

Avant de livrer à votre curiosité fébrile un pre- 
mier vocabulaire de 1 6 mots, pour débuter en 
Forth, étudions tout d'abord les conventions 
de notation utilisées, dans les descriptions qui 
les accompagnent. 

<A— B>= état de la pile : 

A -> avant exécution du mot 
B -> après exécution du mot 
<A1,A2,A3 — B1,B2> = cas où plusieurs 
objets sont présents avant et après l'exécution 
du mot. A3 et B 1 sont les objets au sommet 
de la pile. 

Les objets Ax et Bx peuvent prendre les diffé- 
rentes formes ci-dessous : 

• n = nombre entier simple longueur compris 
entre -32768 et +32767 sur deux octets. 

• d = nombre double longueur compris entre 
- 2 1 47483648 et + 2 1 47483647 sur quatre 
octets. 

• adr = adresse mémoire sur deux octets. 

• f = drapeau résultant d'une opération logi- 
que ou d'un test avec 1 ou + = vrai et 0 = 
faux. 

Voici vos 16 premiers mots Ediforth tant 
attendu et rendez-vous un peu plus loin, pour 
commencer à les utiliser et en créer de 

nouveaux... ! 

• 

< n 1 ,n2 --- n > laisse sur la pile le produit signé 
simple longueur "n" des deux nombres sim- 
ple longueur "ni" et "n2". 

+ 

< n 1 ,n2 — n > laisse sur la pile la somme "n" 
des nombres "ni et n2". 


< n 1 ,n2 --- n > met sur la pile la valeur "n" qui 
est la différence de "ni -n2". 

/ 

<n1,n2 — n> laisse sur la pile le quotient 
signé des nombres simple longueur "ni et n2". 

i 

<n — > affiche, sur le périphérique de sortie, 
le nombre simple longueur signé "n", en fonc- 
tion de la valeur de la variable utilisateur 
"Base". 

nombres "ni et n2". 

< n 1 ,n2 --- n > met sur la pile la valeur "n" qui 
est la différence de "ni -n2". 

/ 

<n1,n2 — n> laisse sur la pile le quotient 
signé des nombres simple longueur "ni et n2". 

• 

<n — > affiche, sur le périphérique de sortie, 
le nombre simple longueur signé "n", en fonc- 
tion de la valeur de la variable utilisateur 
"Base". 

<— > affiche, sur le périphérique de sortie, la 
chaîne de caractères qui le suit. Celle-ci se ter- 
mine obligatoirement par le caractère. Avec 
Ediforth la longueur maximum de la chaîne est 
égale à celle de l'écran. 

! 

< ni, adr — > range la valeur "n" aux adres- 
ses "adr" et "adr +1". 

< n,adr — n > laisse sur la pile le nombre sim- 
ple longueur "n" situé aux adresses "adr et 
adr+1". 

<---> s'utilise sous la forme : NNNN 

Ce mot marque le début de la définition d'un 
nouveau mot "NNNN" qui se termine par le 
mot qui en achève la compilation et finit 
de le ranger dans le dictionnaire. 

Base 

<— adr> variable utilisateur contenant la base 
numérique courante utilisée lors des opérations 
de conversion numérique des entrées/sorties. 

CR 

<— > réalise un retour charriot et un saut à 
la ligne, sur le périphérique de sortie (écran ou 
imprimante). 

DO 

<n1,n2 — > lors dfi l'exécution. 


<— adr,n> lors de la compilation. 

Ne peut s'utiliser que dans une définition, avec 
l'une des formes suivants : 

"DO ... LOOP" 

"DO ... +LOOP" 

En mode d'exécution "DO" marque le début 
d'une séquence à exécuter "ni -n2" fois. Il 
s'agit d'une structure de boucle comparable au 
"FOR ... NEXT" du BASIC, où l'indice de bou- 
cle inférieur est égal à "n2" et le supérieur à 
"ni -1". 

Par exemple une boucle "10 1 DO ... LOOP" 
sera parcourue neuf fois (de 1 à 9). 

Lors de la compilation, au sein d'une définition, 
le mot "DO" compile la procédure d'exécution 
"(DO)'' à sa place. Il dépose sur la pile l'adresse 
suivante "adr" ainsi qu'un nombre simple lon- 
gueur "n", pour faciliter la vérification de la pré- 
sence de "LOOP ou +LOOP" et indiquer 
l'adresse de début de boucle à ces derniers. 
(Voir aussi le mot "?Pairs"). 

Le mot "DO" utilise les mots qui suivent pour 
contrôler le fonctionnement de la boucle : 

• "LOOP et +LOOP" pour marquer la fin de 
la boucle et effectuer un branchement au mot 
qui suit "DO" s'il y a lieu. 

• "I" pour mettre l'indice courant de la bou- 
cle sur la pile. 

• "LEAVE" pour sortir de la boucle avant son 
achèvement, suite à un test. 

Emit 

<n— > affiche, sur le périphérique de sortie 
sélectionné (écran et/ou imprimante, voir aussi 
les mots "PRTON et PRTOFF"), le caractère 
ASCII dont le code "n" est sur la pile. 

Le contenu de la variable utilisateur "OUT" est 
incrémenté à chaque utilisation du mot 
"EMIT". 

Key 

<— n> attend l'enfoncement d'une touche au 
clavier et en laisse le code ASCII "n" sur la pile. 

LOOP 

<adr,n — > en mode compilation 

Ne peut s'utiliser que dans une définition, avec 

la forme suivante : 

"DO ... LOOP" 

En mode exécution, "LOOP" marque la fin 
d'une séquence répétitive et réalise un saut en 
son début, si le nombre de répétitions prévu 
n'est pas atteint. 

Lors de la compilation, au sein d'une définition, 
le mot "LOOP" force la compilation de la pro- 
cédure d'exécution "(LOOP)", à sa place. 


L'adresse "adr" sert à calculer le déplacement 
à réaliser, pour effectuer un branchement au 
mot suivant "DO". Le nombre simple longueur 
"n" permet de vérifier l'existence, préalable, 
du mot "DO". 

(Voir aussi les mots "DO, I, LEAVE et 
+ LOOP"). 

Slook 

<— > affiche le contenu de la pile sans le 
modifier. Ce mot est un outil très utile, pour 
la mise au point de la définition d'un autre 

VOICI LES TRAVAUX FORTH... ES ! 

(Pourra-t-il continuer ainsi jusqu'à la fin de l'ar- 
ticle ? N.D.L.R.) 

Je vous propose d'essayer de faire travailler 
l'interpréteur d'Ediforth, avec les différents 
mots que nous venons de voir et de terminer 
en créant de nouveaux mots, avec des noms 
en breton, si vous le désirez... ! 

Jouons avec les changements de base : 

• 10 1000 2 BASE ! . BASE ! CR 
1111101000 
<OK> 


Attention Forth ne connaît qu'un seul sépara- 
teur : l'espace. 

Nous avons mis successivement, sur la pile, 
les nombrfes 10,1000 et 2. Ce dernier nom- 
bre est situé au sommet de la pile. Vous pou- 
vez le vérifier, aisément, en intercalant le mot 
"SLOOK" entre 2 et BASE. Il est ensuite 
chargé dans la variable "BASE", à l'aide du mot 
"I". Dès cet instant, les entrées/sorties d'Edi- 
forth se réalisent en binaire (= base 2). 

Le mot "." affiche le nouveau sommet de la 
pile ( = 1000 en décimal), en binaire et l'efface 
de celle-ci par la même occasion. Là aussi, une 
utilisaton judicieuse du mot "SLOOK", vous 
permettra de vérifier l'évolution de la pile. Nous 
terminons ce premier essai d'Ediforth, en reve- 
nant en base décimal par chargement de la 
valeur 10, mise initialement sur la pile, dans 
la variable "BASE". 

Nous allons maintenant, enfin, créer notre pre- 
mier mot en auvergnat... : 

FOUCHTRA 6 1 DO 

KEY EMIT 
LOOP CR ; 

<OK> 


Comme son nom ne l'indique pas, ce mot per- 
met la saisie et l'affichage d'un mot de cinq let- 
tres... sur l'écran de votre MZ. 

Créer un mot nouveau, c'est facile avec Edi- 
forth. On indique tout d'abord le début de la 
définition avec":" ; suivi immédiatement 
après, avec toutefois au moins un espace de 
séparation, du nom du mot qe vous désirez 
créer, "FOUCHTRA" en l'occurence. Ensuite 
il reste à écrire les mots et/ou les nombres qui 
composent la définition proprement dite et à 
terminer celle-ci avec";". 

Voilà, c'est fait, vous venez de créer votre pre- 
mier mot sous Ediforth. Une pause café paraît 
nécessaire... ! 

• : PAUSE-CAFE. "Pause café, un quart 
d'heure de détente" CR ; 

<OK> 

• 

Je vous laisse deviner ce que fait ce dernier mot 
et revenons maintenant au fonctionnement du 
mot "FOUCHTRA". 

Celui-ci est composé d'une boucle "DO ... 
LOOP" dont le fonctionnement se rapproche 
du "FOR... NEXT" du BASIC. Les bornes de 
la boucle sont dans l'ordre inverse, par rapport 
à ce dernier et la borne de fin est toujours supé- 
rieure de un au nombre d'itérations. Ainsi 
"6 1" comme bornes, réalisent l'exécution, 
cinq fois de suite, des mots compris entre "DO 
... LOOP". 

Ces mots, justement, que font-ils ? 

Le mot "KEY" attend la frappe d'une touche 
au clavier et dépose le code ASCII correspon- 
dant sur la pile. 

Son complément naturel "EMIT" prend le code 
ASCII sur la pile, l'affiche à l'emplacement cou- 
rant du curseur et avance ce dernier d'une 
position. 

Agitez en tournant cinq fois de suite et voilà 
votre mot de cinq lettres qui s'affiche 
miraculeusement. 

Si cinq lettres ne vous suffisent pas pour vous 
exprimer, alors il vous faut augmenter la borne 
haute de la bouche... ! 

Pour terminer, encore une petite manipulation ? 
Alors allons-y pour quelques opérations de lec- 
tures/écritures en mémoire. 

Le "PEEK(adr)" du BASIC se dit "adr " en 
Forth, avec "adr" l'adresse à lire. Le mot " " 
a toutefois la particularité de lire deux octets 
à la fois, soit les adresses "adr et adr + 1". En 
effet, n'oubliez pas qu'Ediforth se comporte 
comme un super microprocesseur 16 bits. 


Heureusement, il existe un mot "C " qui ne 
lit qu'un octet à la fois, ouf ! 

Toujours dans le même ordre d'idée, le "POKE 
adr,n" du BASIC, se dit "n adr!" en Forth et 
écrit le nombre simple longueur "n" aux adres- 
ses "adr et adr+1". 

Mais là aussi, nous disposons du mot "C!" qui 
n'écrit qu'un octet à la fois. 

Si malgré tout ce que nous venons de voir, vous 
êtes toujours un incorrigible fervent de BASIC, 
voici la botte secrète d'Ediforth : 

♦ : PEEK C ; 

: POKE C! ; 

<OK> 

Une seule devise pour Ediforth : 

Vous changez de langage... 

... changez de mots, si vous le désirez... ! 


D. BEURRIER 




éTéi 


ZEN-DISK 


* 3 commande (,< I „, 

" wx ' if ,w » Proposa de vm. 

SStSSWfS 

J3? ,rava «* en langage 
machmeque sur le périphénaue 
lecteur de cassettes. Aussi, à 


zcwÿ Hereür "ees du 

«N Xd angine el avec un peu 

*le patience, l'accès de vos pro- 
grammes Sources, leurs combi- 
naisons, le chargement des pro- 
grammes assemblés et leur exé- 


disquettes. 


3. Faire JF57E puis Wl, 0030, 2000, 1200+ CR 

4. Charger en mémoire par 
RI ,0000,01 00, 1 200 + CR 
Puis RI, 000F, 0100, 1300+CR 

revenir alors au moniteur par « M » + CR. 

5. Entrer alors le DUMP N° 2 suivant 
puis faire : 

M 1306+ CR 

1306 00 FF+CR 

1307 00 FF + CR 

1308 00 FF+CR 

1309 00 FF+CR 
130A 00 Shift break 

6. Après retour au MINI-DOS par JF 57E lan- 
cer la commande d’écriture 
W1, 0000,0100, 1200+CR puis 
W1, 000F, 0100, 1300+CR revenir enfin au 

moniteur par M+ CR. au 

Mode d'emploi du ZEN-XP-FD 


Confection du programme ZEN-XP-FD : 

entrezen mémoire : 

choix)^™ 0 1 (parlaméthode de votre 
Ceci fait : 

1 . Charger sur la cassette le programme ZEN- 
HJ que vous venez de créer : 

M)ar *S2C0031FF00AD et NAME « ZEN- 

G0+CR+rR ZEN X dori9ine et répondre ZEN 
uü+CR+CR pour revenir, au moniteur 

Ln £: 9erZEN ' FD par,a «ndeLdu 

4. Modifier les octets suivants • 

M18C2+CR 
18C2 C5 C3+CR 
18C3 2E 66+ CR 
18C4 96 2D+CR 
1 8C5 CD Shift Break 

M 18 CC 
18CCEDC3 
18CD78A5 


Charger tout d'abord le ZEN-XP-FD par la 
mande F du moniteur, P 


com- 


18CE F5 2F 
18CF CD Shift Break 

Ml 603 
1603 CD C3 
1604BB4A 

1605 15 30 

1 606 FD Shift Break 

M138A 
138A00 00 
138B 30 32 
138C0000 
138D 30 32 
1 38E 00 Shift Break 


5. Sauvegarder sur cassette le ZEN-XP-FD Dar 
la commande *S120031FF00AD P 

Création de la disquette ZEN-XP-FD 

1. Prendre une disquette neuve que vous ini- 

UTyS MiQTcLm S * * K»»»™» UTI- 

r jl\ fTO retenir au moniteur 

2JÏÏT 18 ZEN ' XPFD * la — 


a) Pour sauvegarder sur disquette un oro- 
gramme (ou listing) Source que vous récuûé- 
rez d une cassette ou que vous venez d'écrire 

exécutez les commandes suivantes: 

ZEN>0+CR 
DATA>4+CR 
NAME>nom (du listing) + CR 

b) Si après assemblage correct, vous désirez 
sauvegarder le programme Objet ainsi qénéré 

exécutez les commandes: 9 

ZEN>0+CR 

DATA>1+CR 

cTA M DT >norn ^ du P r °gramme)+CR 
START> l'adresse de début du programme 
(suivant la syntaxe du ZEN X)+CR. 

^>!, a î esse de fin de programme + CR 
EXEC>| adresse de démarrage du pro- 
gramme + CR y pro 

0 la commande PLOT ON du BASIC sera réa- 



DATA>9+CR (seuls, les messages d'erreur 
resteront à l'écran). 

d) La commande PLOT OFF est réalisée par : 

ZEN>0+CR 

DATA>0+CR 

2. La commande V de visualisation du contenu 
de la disquette ZEN>V+CR vous donnera le 
contenu de votre disquette. 

Les nombres indiqués sont en hexa 
Les codes sont les suivants : 

T. signifie type de programme : 

1 . Pour les programmes en langage machine 

3. Pour les fichiers à accès séquentiel 

4. Pour les sources du ZEN ou pour les fichiers 
à accès direct 

5. Pour les programmes en BASIC.Pour le ZEN- 
XP-FD, seuls les types 1 et 4 (listings sources) 
sont utilisables. 

Adem : c'est l'adresse d'exécution du pro- 
gramme objet 

Long : c'est la longueur en octets du 
programme 

Asec : c'est le numéo du secteur de la dis- 
quette à partir duquel est chargé le programme. 
Sur le message « Appuyez « CR » en plus de 
cette possibilité, vous pouvez faire shift break, 
ce qui interromp la recherche et fait revenir au 
ZEN. 

3. La commande I de chargement du MZ-700 
à prtir de la disquette 

Après ZEN > I + CR, au message N AME répon- 
dre le nom du Source ou de l'objet que vous 
désirez respectivement transférer ou exécuter 
en mémoire centrale. 


REMARQUE : 

Lors de la visualisation par V, si un ou des espa- 
ces apparaissent devant le nom du programme, 
il faudra le charger sans omettre 
(après NAME>)ces espaces sinon le message 
« BADE READ » s'affichera. 

Par ailleurs s'il n'y a pas ambiguité, vous pou- 
vez vous contenter de la ou des premiers carac- 
tères identifiant le nom du source ou de l'ob- 
jet que vous voulez charger. 

Autres remarques : 

• Les programmes ou les sources peuvent très 
bien être chargés sur une autre disquette. 


• La disquette ZEN-XP-FD est compatible avec 
les utilitaires comme Fiching CMT, Utility ou 
Mastercopy. 

Xavier PIERSON 
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^ E (O ) ="F IM" Rggi il -r~i 

330 FOR I = 1 je Nm 
-■40 : AT-CT ( I ) 

350 : if RIGHT*<w*( 0 ),i)=.. 

390 ■ A ^'L T */ A * ,LEN(W * <0 > >-l> + ". " 

370 NEXT UJ) ~ A * C=I:CT=C*a> ; I= N BW 

Sto ÈUS" 3 PRDE "E--r»( 0 ,,R ESUL T , 1 

400 IF C<KW+i 

410 if ULT =^AL < "FN-+CHR* (34) +C* +C HR* (: 

440 ELSE PR0C ' ,S 

450 DEF PROC "s" ^ -y -v -o o, >v , v ^ , v . , v , v ^ , v , v , v 

460 LOCAL Q< 1 >, 0( ,* p ,_ n 
470 REPEAT - • »«<■->, ? Q ( 4 > , Q ( 5 > , £ 

Z ; 

-OO ONT I L CT ( C ) = " F ï |\| 11 
510 ENDPROC 
520 =• 

530 DEF PROC" p " 

540 LOCAL. I 

=50 FOR I., TO wl (p 

s 1 o= E P, , )=FN „ Evil „ a) 

590 ™n-ï = 1 ™ WWIC.MJ 

?;: " q ' I) -e:yal(p$(c, j) > 

OU . f 'ROC " Pas e "' ( P$ ( r , f v p , T ' , 

610 NEXT r nPfl) > 

620 PROC "s" 

SX r°PRocil F TO y AL <p*tc, 0 ,, 

«0 ne« f,m «'W.SID. 

660 ENDPROC 
670 ’ 

680 DEF FN"Eval"CD ' — 

690 IF WT (i )=«.. pj.pcr, „ . 

7“ ?Siz:! uaL<w *”>"> 

720 DEF FN-CHnNeES"' ' 

700 MOVE 0 , •— 4 Rn ■ hcpt. 7 

740 SI= 0 s co^i : Scï Si ?a s*" 0î Y "° 

760 tE " * RESlJ LT=l 

SS 

s — 

® lw BEF" Fn " DRO 1 TF " 

SS 

840 DEF FM "GAUCHE" 


|o 0 f^£ 

-o°4 F su F L L Sî»->‘— 

960 

970 DEF FN " A VANCFS " 

lOOO DEF FN" RECUL E> 

iSo fS^S^srv:» 

1030 DEF FN-Trace" (S~ ' ' 

loso Ey7s«“E J I ';sr^ X Ê X+STO ‘ C0 * s “ LE 

gSïSï^iSSS 

1090 LI * XFE .7.V 

U - U -V 'F O.- R, 5.. ^ ^ ^ ^ ^ ^ _ ^ 

1 1 1 OEF FM" VA-S—FN " ' -9V9 W .v„ Ww . 

140 V'=Y MAX -240 MIN Æ 

ll£ ^?.ilL P ! î ?f ,,Update,,îR ESULT=l 
1 170 def fn-coule:ur"' V,V "" — 

j PO i°F AL D: Ds= EVAL (W® ( t ) ) 

1190 ,D«D MAX O MIN > 

«îo r S!;?1 d ; pesul 6i 

1220 DEF FN»cÈntoe» ' ■ 

Ils °’° 

1260 DEF FN"FINI"-=o - 

1280 DEF PROC«Fv j ^^' V "' v ' v ' v ' v ‘ v ' v ' v ''--' v '"'>- 

îlvî t?"' J T K « + i“rà NEW 

1310 ^ X j* Kl):=:C * (J) e=-l!J=NBW 

1320 ENDPROC 

1 330 ■’ 

ÎSS nf , FN "POUR" :LOCArr^^' 1 ''^^ 
1360 «, JF 

,22"' F PR INT W$ ( J > ; - por»r "p „ 

580 J»NBW+1 :■ C* (J,4i ■ SS- 7' <2> * RES ULT,: 

1390 P* (j , o) =STR$ (N--) NBWJ 

^410 REP^T PR 0 C "S»^* Paramétrés " 

1430 j SS"F1 IN h UT,,4 ' > ' >S " * C$ ( J > 

1440 S IF Ei^ï î e 7? 4î<J))îBEEP ^500,2 
1450 ÜMTIL C^tjjfnp^,,^ N .BW=NBW+l 
^•46 O NBW=J s RESÜLT-1 “ BfcEI " -*^00,5 

1490 LOCAL R I C " SaUV ® para( netres7' VV ' V ' , '" V ' ,V ' v 
1500 FOR ï»! T0 N ^. 0 

' JS!» * P*(J,I>«W*(ï + i, 

1520 NEXT 
1530 ENDPROC 
1540 ■'' 

; 71550, DEF FN” REPETES" lk '" v ' v '"''^'w«,6666 

1^60 LOCAL J 

1570 IF 2«0 RESULT-1 

îs?o Tts; ™ ewl ‘«* iDi-i 

1600 s REPEAT 

J620 : r^ B s t *‘ <c,<c, ’ c "^* 

1640 NE ct" L C * <C > -ENCORE" OR C»<C>.»FIN" 

1650 RESULT-1 

1670 DEF 

1690 Pmr~nZt E * EVAL ,mtt >> 

i7oo •~°7ïi*;7 REsuL T"i 

fr F FN " E CHELLE" ' VS '"' V "'"'' V '' V ' V ' V - ,V ' V -'---''^-— 
f.7: j cale-rval ( wt a ) > 

r/S S77S7 1 !!7:7 E f! ; ' E ;[“i 

1750 DEF. FN”SOIT" ' v ' v ' v '''" v ' v '‘ v 'N"-3-a..6..o..o,^.^ 

1 770 RESULT»!^ " <W * <1>S EVAL (W * (2 ) ) ) 


1 Sin î** L r ’ 1 ° ? * L=LEN ( A* l 
18.30 SrSS ^J^^G^iO-L," 

1850 i F XT KE 30J7l?+I ' ASC, MID$(A$,l, ] 
W90 

1910 IF MBW=KW PESULT-O 

920 ™„ a „ t 5 L ^ T - ü 

19« *x7 WÎ!1) *«<1> T.iw-NBW 
1950 RESULTAT 
1960 •" , 

! 2 ? D ! E _FN"PLis7Ès"'' ~ — " 

1990 PLOT Z£:Z[7ZZnm™ 

2010 P^C"S R ;" 0V ! 2 «„.:f v 7Hs ü ET 0FF 

2020 RESULT=i ** n * ™°C"Update ■ 

2040 DEF FN"L I8TES" ' ^ 

2050 LOCAL T, I 

SS RESULTÏÏ ® rChe " >0 PROC ’’Ecri s .. 
2080 •’ ,. 

2140 ÙnITcIitZ^n'" I,T « B '«>IC*( 
-ISO ENDPROC 

:!77f:772^ 

fii7Zcrr Fn;:;: ~ 

2200 WJ™ "F T ;rI™tô 9 s R ™ T! Ell,DP,i0C 

2230 NEXT N*IT,riJ 

2240 PR INT 
2250 ENDPROC 
2260 =“ 

2300 result “i 

2|o «— »" 

s: 0 ü ; 

So° ; ^ t *<T 14I,D^, (T 9 ï+];J) 

2370 NEXT 

2380 NBW=NBW+ti 6 t _ 1 
2390 RESULT-1 
2400 ’ 

2410 DEF FN" SAUVES 

2420 LOCAL I,j 

--s ; tzz T c ri> 

i:“ ; nex? int/t 

2500 NEXT 
2510 CLOSE 
2520 RESULT-1 
2530 

2540 DEF FN "CHARGES" 

2550 LOCAL l,j 

2560 PRINT .CHR*(*7F>+" Pt „ ., 

Z u9v * imput/t c*(n 

2600 * FOR J.0 TQ 3 ' 

2620 î MEÎf UT/T P *”^> 

2630 NEXT 
2640 CLOSE 
2650 RESULT -1 
2660 ’ 

-SS rf~ F RM " Wards " (A*7 

^680 IF LEN(AT ).=0 RESLI 1 T-n 
7,Ï.! WH 7 E LEFT«(A*. n»..".; Dü 

S7 7 “o ü «ENr iNt<M '°' 2 -"" ) 

||o° RESULT ' 7 

2750 M* ’ “"î " PROC»Crochet “ 

f? ~ 

2830 DEF PRQC 

i84ü I ~ 1 MSTR ( AT , » •■ , 2 ) 

2 sS Mr 8 ^* EESE 

2870 > 

2 o!° DEf: ' F'BQC “Updat e " " 

^S9o LOCAL. S, XO, YO 

^900 XO-HPOS: YO-VPOS 

2920 gXaPH L 69SI 0^ 30, 10 '’ C0L0R => » •' 2: CLS 

2940 CONSOLÉ^! SfS°’ JSn 10 * SI - ^ 

S» xa ’ m 

3010 DEF PRDC"Err»TEr'''''^' V ^' W ' V ' y ‘ v ^^^' , '' v 
So°| 10.450.3 

3050 DEF PROC'Tniti à7S7 
: |760 MODE GRrMOVE 240, 240.TISFT 

: "1 7 ü PCOLOR o : MODF O j r| p ' L F 


®^SilÿS®SSlSiSiSlSlfèl9iM 
ml $i&Ê^0Ê : ^Ê^&ÊKSÊSÊÿ0ÊiSÊSÿiWS 

t$$il#§|^ 

tr^aSi-^ 

Fi®ii®§i(^ 

AifilNëti®^ 

:>®fiis8iM 

liiëëlêëfâ© 

$M& m&iM M .Zssï® XlëGUL# 

Xl|t|I^ 

3 ® êëiSlft^ 

lÆiïiâe^ i:p® : r : ÿ#S'^^ : Q. 

fcëP^FR®:^ 

TîMll®^ 

lFFÉ1?Fëtffi 

fâëiMëTëRR^ 

Ê?ëSfîi2iÏÏ£^ 

|=r jh f ^ î : 

: ; ;; r^ : .;;; "v 0- v ' "v v5"-:"; ^ : .^ :: -ï>" ^ ^ '' 

ëiæ|uK 

TTÊStJÉT^ 




DEF PROC "Numéro" < 
iREFFAX 2 : 

XNpÜ^ 

UN T I L. IM>L AND MCI 
ENDPROC 


5 N ^ N-ABS;< î NT ( N > 


DEF PROC "Entre" 

: >.RÉPÈafv:. ; i:::: 

Si ;: INF'UT "++; " ; A4» s D=FN"Et udie" (A*) 
UN T I L E 1 =0 
^ENDPROGÿï^^ 

DEF FN"M“ 

PRINT*’Modi fi cation de la"sBEEP 1 
P F r < 0 C ” N u m ero" <~1> s PROC"Entre" 

C$ (N+TJ. ) =A$ s RESULTA 1 

DEF iFN”E":i^^rSi^i: 

ÀLdéAL^^ 

PR INT "Effacement de la u ?BEEP 1 
/ëRQG"Numè^^ 

FOR J=T 1 +N + .1. Tü NEW 
>.'F:'tot <JFt) h-shj ) A,F 
- S- FOR K=0 TU 5 

. -■ s. ; ■' ■ s . .-' .R^.x:ijrs- 1 ^; : k 5 ■ =? ;■ ■:■ t s ; V ■ 

:■ TstàEàëR^T 

NE XT J 

■; wîBW=(NFR^:tÆf ;t~- ii:;y';: -is'i:; 
;:FÆSUlMlt^'Sv 

L..OCAL J , K 

PR INT" Insertion apres- la" s BEE P ri 
PROC" Numéro" (-1 ) : S" 

FOR ,J=NBW TO U+N+l STEP —ITT 
s c$(J+n=c-$ <j:> -s'-: ■.; 
iisiFoR-: i< : =(X . to 5 . ; :- 

Ï P$<J + l,FO=P* (J, K ) 

.y-s: NEXT K TA TTvT'' 

NEXT J 

NBW=IMBW+ 1 s 1 = I + 1 i PROC “Entre" 

G$ ( T .1. +N-i- 1 ) eA$ s RESULTA 1 

: DEF : FN " S ï "i i ' STS- v : 

UÜCA!^ 

V N=EVAI.:: <W$ ( 1 > ) s D== 1 
IF l«>0 PROC " Then " ELSE PROC "El s 
) TF* A$< >" " ; ü : N r N " liïtérT^ 


Dans la littérature mformati- 

3 ue, il est souvent bien difficile 
e défendre la langue de Bos- 
suet face aux assauts du jargon 
anglo-saxon. Là où nous disons 
RECOPIE D'ECRAN SUR IMPRI- 


Les routines que vous propose M. PANETTO 
vont donc vous permettre de recopier, à tout 
moment, l'intégralité des textes affichés à 
l'écran sur votre imprimante. La routine 1 pej- 
met d'utiliser la table traçante SHARP sous 
moniteur ou sous BASIC standard (S ou K.BA- 
SIC). Si vous possédez un BASIC CENTRO, 
cette routine fonctionnera également pour 
toute imprimante au standard CENTRONICS. 
La routine 2 fonctionnera avec les BASIC stan- 


MANTE, les Outre-Manchois 
interjecfenl HARD COPY ; soif 
une économie de 1 8 lettres et 6 
syllabes, évidemment Bossuet 
n'utilisait pas encore de traite- 
ment de texte... 


dards et une imprimante CENTRO. Outre l'in- 
térêt pratique de ces 2 utilitaires, l'étude de la 
routine 1 et de ses commentaires permettra 
aux apprentis sorciers du L.M. de découvrir plu- 
sieurs techniques nouvelles de programmation 
(sauts relatifs, boucles, sauvegarde de regis- 
tres) que nous aborderons dans nos futures 
leçons. 

S.B. 


DEF PROC "T 
; FIt-iribtr t cifc 
A$-IN-&«2«< 
ENDPROC 


( 1 > , 1 > F ..: 
-H...EN <W$ < l ) 


11 C880 

12 C881 

13 C882 

14 C885 

15 C887 

16 C888- 

17 C88A 

18 C88D 
19- C88D 

20 C88F 

21 C891 
22C893 

23 C896 

24 C898 

25 CB9A 

26 C89D 

27 C89E 

28 C8A0 

29 C8A2 

30 C8A5 

31 C8A6 

32 C8A8 

33 C8A9 

34 C8AA 


E5 

C5 

2100D0 
061 9 
G 5 

0628 

7E 

FEÜ0 

3804 
FEC7 

3805 
CDCE0B 
1802 
3E2E 
CD7816 

10EA 

3E0D 

CD78L6 

Cl 

1 0DF 
Cl 
El 
C9 


Mrf=*FfcE> 

O O F :: “ N 

^ FX... 

VRAM: 

EQU 

0D000H 

LXÜN: 

EQU 

19H 

COL: 

EQU 

28H 

PR INTER: 

EQU 

1 67SH 

BREAK: 

EQU 

001EH 

STI: 

EQU 

00ADH 

CR: 

EQU 

0DH 

ASC : 

EQU 

ORG 

0BCEH 

0C880H 


LÜAD 

0C880H 


RUSH 

HL. 


PUSH 

BC 


LD 

HL. , VRAh 


LD 

B, LIGN 


f=> i..„ ci t ter-basic 


18FH SI MONITEUR 


BC 

B , COL 
A, (HL) 
0C0H 

C y ASCI I 

0C7H 

C, PO INT 
ASC 
PRNT 

A , M 

PR INTER 
HL 

BOLJCL 1 
A, CR 
PR INTER 
BC 

BÜUCL2 

BC 


Sauvegarde de HL et BC 

HT HL = Début RAM vidéo 
B = nombre de lignes (24 D) 

— Sauvegarde de BC 

— B = nombre de caractères par ligne (40 D) 
~~ A = Caractère écran (HL) 

Conversion en ASCII si A $COH 

— Affichage de "." si C0H$A$C7H 
Conversion de A en ASCII 

— (A } = "." 

— - Impression du code ASCII (A) sur imprimante 
— ~ On avance d'une case écran 
~ On boucle sur une ligne 

Envoi d'un retour charriot à l'imprimante 

— On récupère le nombre de lignes 
— — On boucle sur 24 lignes 

~~j On récupère HL et BC sauvegardés 
j au début 


PAGE 

1 



COPY 

texte: 

mz: 

3^I2MZ> 

1 



VRAM: 

EQU 

0D000H 



2 



LIGN: 

EQU 

19H 






COL : 

EQU 

28 H 



4 



BREAK: 

EQLJ 

001 EH 



5 



STI s 

EQU 

00ADH 



6 



CR: 

EQU 

0DH 



7 



ASC: 

EQU 

0BCEH 



8 




ÜRG 

0C880H 



9 




LÜAD 

0CS80H 



10 

C880 

E5 


PUSH 

HL 



1 1 

CSS 1 

C5 


PIJSH 

BC 



12 

CSS 2 

21 0000 


LO 

HL , VRAM 



13 

CBS 5 

0619 


LD 

B, LIGN 



14 

C8S7 

C5 

BQUCL2: 

PUSH 

BC 



1 5 

C888 

062S 


LD 

B , COL 



16 

C88A 

7E 

BÜUCL1 : 

Lo 

A, <HL> 



17 

CSS B 

FEC0 


CP 

0C0H 

5 CTRL 


18 

CS8D 

3000 


JR 

NC, PO INT 



19 

CSB F 

FE80 


CP 

80H 

5 DISP 

/-I 

20 

C89 1 

3804 


JR 

C, ASC II 



21 

C893 

FE9B 


CP 

9BH 

5 DISP 

" + 1 

22 

CS 9 5 

3807 


JR 

C , PRNT 



23 

C897 

CD CES B 

ASCII: 

CALL 

ASC 



24 

C89A 

1802 


JR 

PRNT 



2b 

C89C 

3E2E 

POINT: 

LD 

A, ' , ' 



26 

C89E 

CDAFC8 

PRNT : 

CALL 

PR INTER 



27 

CSA 1 

23 


INC 

HL 



28 

C8A2 

1 0E6 


DJNZ 

BOUCL 1 



29 

C8A4 

3E0D 


LD 

A, CR 



30 

C8A6 

CDAFC8 


CALL 

PR INTER 



3i 

C8A9 

Cl 


POP 

BC 



32 

C8AA 

100 B 


DJNZ 

B0UCL2 



33 

C8AC 

Cl 


POP 

BC 



34 

C8AD 

El 


POP 

HL 



35 

CSAE 

C9 


RE T 




36 

C8hF 

C5 

PR INTER: 

PUSH 

BC 



37 

C8B0 

0E00 


LD 

C , 00H 



38 

C8B2 

47 


L.D 

B, A 



39 

CSB3 

CDC7C8 


CALL 

RDA 



40 

C8B6 

78 


LD 

A, B 



41 

CSB7 

03F F 


OUT 

<0FFH) , A 



42 

C8B9 

AF 


XOR 

A 



43 

CSB A 

03FE 


OUT 

(0FEH) ,A 



44 

CSBC 

0E01 


LD 

C , 0 1 H 



45 

C8BE 

CDC 7 CS 


CALL 

RDA 



46 

C8C1 

3E80 


LD 

A , 80H 



47 

C8C3 

D3FE 


OUT 

< 0FEH > ,A 



48 

C8C5 

Cl 


POP 

BC 



49 

CSC 6 

C9 


RET 




50 

CSC 7 

DBFE 

ROA: 

IN 

A, (0FEH) 



51 

CBC9 

E601 


AND 

01 H 



52 

CSCB 

B9 


CP 

C 



53. 

cscc 

CS 


RET 

Z 



54 

CSCD 

CD1E00 


CALL 

BREAK 



55 

C8D0 

20F5 


JR 

N Z , RDA 



56 

C8D2 

C3AD00 


JP 

sri 



57 




END 





ASTUCES 

ASTUCES 



UN USR bien placé dans votre programme vous 
permettra d'effectuer un déplacement de la 
totalité de votre écran vers le haut ou le bas 
(SCROLL). 

Sous S. BASIC : USR ($655) vers le haut. 
USR ($672) vers le bas. 

Sous DISK BASIC URS ($64B) vers le haut. 

($672) vers le bas. 



Comment simuler la fonction LINE SUR MZ 
avec les pavés graphiques, il vous suffit de 
taper le sous-programme suivant : 

60000 D9=SQR(X9-X8) 2+(Y9-Y8) 2) 
60010 R9=(X9-X8)/D9 
60020 59= (Y9 - Y8) D9 
60030 FORI =OTOD + ,5:SETX8,Y8 
60040 X8 = X8+ R9:Y8 = Y8 +S9:NEXT 
60050 RETURN 

X8 et Y8 sont les coordonnées du premier 
point, X9 et Y9 les coordonnées du second 
point. Attention, ces valeurs ne doivent pas 
être égales. 

EXEMPLE : 

X8 = 0:Y8 = 0:X9 = 79:Y9 = 48:GOSUB 
60000:END 


M. Szczepanski 



Un moyen simple de sélectionner définitive- 
ment les minuscules et majuscules sur MZ : Il 
suffit de taper simultanément SHIFT et ALPHA 
et de recommencer la même opération pour 
revenir au mode majuscule. 


N. Le Nours, 


UHISURMZ 


microprocesseur : Le calcul tiaïïT^ ! a . c,,0,l 1 l * es «nfruc- 
onHunéHque et étudier n uKH- feî drf,éfw ^ 

Z 80 ET ARITHMETIQUE 


Il faut bien le reconnaître, le Z80, comme tous 
les microprocesseurs 8 bits, a tout juste le 
niveau d'un élève de cours élémentaire puis- 
que ses connaissances en calcul se limitent à 
queues operations de base : Addition, sous- 
action, comparaison et manipulation d'octets 
l e f a . par t tir t de c ( es éléments primaires que 
t0 “ s ,es «Iculs mathématiques 

Erpî?* es J?£ ga9es de haut niveau 
(BASIC, PASCAL, FORTH, etc). Je vous laisse 

deviner la joie ineffable que procure, par exem- 
ple, pour le programmeur, l'extraction d'une 
racine carree en virgule flottante à partir de ces 
bien maigres possibilités. Heureusement, nous 
l avons déjà constaté, le Z80 travaille très vite ■ 
ceci compensant cela, votre racine carrée 

pour'êtreMlculée/ 6 dUe ^ ues m ^ lse coides 


L'UTILITAIRE «REGISTRE S» 

P ' US 3Vant dans le détail de ce s 

instructions, je vous propose de taper et d'étu- 
dier le programme REGISTRES ci joint. Cet uti- 
«t je vous permettra d'entrer quelques codes 

à étudier ïrf COn f tl ! ant le mini-programme 
_ ®, ,? r etd e sauter a un ensemble de routi- 
nes LIM L puis BASIC qui initialiseront les regis- 

ffic d hfiffnH eXéCUter0nt V ° tre programme P uis 
afficheront les registres du microprocesseur 

Vous pourrez ainsi étudier à loisirs l'action des 

differentes instructions de votre routine sur ces 

i6y|$tr6S. 


P Z, V w vomme son nom l'indique a pour 
effet de ne rien faire exécuter au Z80 sinon de 

p « sautera ainsi, 

par NOP s successifs à la routine de sauve- 
garde en mémoire de ses registres. 

L m° Poijr lafrf ' 3 | llpn u d ' appel du Pmqramme 
LM Pour la déclencher, il vous suffit, en fin 

de saisie, de taper « <jp ». Celui-ci se termi 

nant par un RET, rendra la main au programme 

S?? : U Pr0gramme BASIC continue et 
£ 0 ' 3 ,acran ' ericlair < ,e contenu des dif- 
ferents registres en allant chercher leurs valeurs 

• 900 91 S | e %° U 6lleS ° nt été sauve 9 ardées. 
ucy,, 5 ‘ Sous -P r °gramme qui affiche en 


înrrt 0 , ' lm P |a , nte en mémoire, de $BFD7 à 
5BFFF la première partie de la routine L.M. dont 

me L.M., de $C020 à $C058 (DATA's des 

eNeVonl? ^ S ® Charge de transfé ‘ 

rer le contenu des registres du Z80 dans une 
zone mémoire comprise entre SB800 et $B81 7 
• 1 1 0-1 70 - Routine BASIC d'entrée du mini- 

Ce Pmgmmme s'implante 
de $C00° a $C01 F, soit 32 octets maximum. 

L entree se fait en HEXA, code par code, après 
a fichage par e MZ de l'adresse correspon- 
dante. Apres I entrée du code, la valeur pokée 
est affichée sur la même ligne pour vérification 
BFD7 


BFFF 


C020 


fîg.1 



taper SHIFT « » pour effectuer une nouvelle 

Semennf adr6SSe ' Le programme teste 
egalement la longueur de l'octet saisi qui ne 

doit pas dépasser 2 caractères. Lorsque le der- 
nier octet de votre routine est entré, vous avez 
donc un programme L.M. prêt à être exécuté 

ETUDE DU PTOGBAMMEUGNE A LIGNE PREMIERES APPLICATIONS 

la seconde partie exécute votre routine. Si celle- 
w est inferieure a 32 octets, les octets non uti- 
lises seront a zéro ; le Z80 les interprétera 


w * ■ VI UIIIUI 

du flag correspondant 

àSI! 70 ' OAWsdelar “'™*™« 

zéro des registres. Elle aurait pu être plus 
courte mens moins explicite. Comme aucune 

ffl 7 fï r ™! cleme,teàIérole '*- 

mot™/ " "*“ “ astuce ««n* 

1060 - 107 °) q U) consiste à metfre le contenu 

de HL, soit $0000 dans la pile (PUSH HL) et 

F fPOP AR e r°. ntenU P ° Ur 16 placer dans A et 

très « PRlMp Ce 3 I 6 repr ° duit pour ,es re 9 is - 
tres « prime » en lignes 1090 et 1100. Pour 

* p r0blè me ' ^ Pointeur de pile qui con- 
bent I adresse de retour au BASIC a été sau- 
vegarde en $BA00 (ligne 1160) ; il sera rap- 
pelé juste avant la fin de la routine (ligne 1440) 

Un nouveau pointeur de pile est créé, nous l'uti- 
liserons pour etudier les effets de certaines ins- 
mctions sur la pile, il se situe en $BB00 (ligne 

• 1230-1450 - Routine de sauveqarde des 
registres du Z80 après exécutiJdu m li 

~ Sa,SI - A n ° ter une nouvel,e utifisa- 

F dan. il Pl 6 P ° Ur tranSférer leS registres A ^ 

F dans HL et sauvegarder ainsi leurs contenus 

en mémoire (lignes 1260-1270/1350-1360) 

Ces explications ont peut-être été un peu lon- 
gues et fastidieuses, mais elles étaient indis- 
pensabies pour vous permettre de bien com- 

r: e i c r ent fabriqm * ^ m 

tine en L.M. a partir d'un programme BASIC. 


1 5- Met à i zéro les adresses mémoire compri- 
ses entre $BFCO et $C040. P 




programme puis de taper « @ » pour l'exé- 
cuter et obtenir l'affichage des registres. 
Imaginons que nous voulions placer dans A la 
somme du contenu des registres B et C. Com- 
mençons par placer 2 valeurs quelconques 
dans B et C : LD B, $18 - LDC, $2C. Ensuite, 
le premier terme de l'addition est placé dans 
A : LD A, B puis le second terme ajouté au pre- 
mier : ADD A,C. cela nous donne le programme 
suivant: 06 18 LD B,$18 
0E2C LD C,$2C 
78 LD A, B 
81 ADD A,C 

Le registre A contient maintenant la somme de 
B + C. L'instruction fonctionne en 8 ou 16 bits. 
En 8 bits, elle additionne le contenu de n'im- 
porte quel registre général ou valeur numéri- 
que au registre A. En 1 6 bits, les registres sup- 
ports peuvent être HL, IX ou IY. Essayez par 
exemple : 21 00 10 LD HL, $1000 
015018 LD BC, $1850 
09 ADD HL,BC 
HL contiendra $2850, soit HL+BC. 
L'instruction ADD sur 8 bits peut s'utiliser avec 
un registre dit d'INDEX qui peut être (HL), 
(IX+d)(IY+d). Nous reviendrons ultérieure- 
ment sur les registres d'index IX et IY ; étu- 
dions (HL). 

Tapez: 21 20 CO LDHL,$C020 
3E 20 LD A, $20 
86 ADD A, (HL) 

A contiendra $42 soit son propre contenu 
ajouté au contenu de l'adresse POINTEE par 
HL. HL contient la valeur $C020 qui est le 
numéro d'une adresse. Cette adresse contient 


la valeur $22(c'est la première adresse du pro- 
gramme de sauvegarde des registres) ; c'est 
cette valeur, contenue dans l'adresse pointée 
par HL qui sera ajoutée à A. Cette notion de 
POINTEUR que nous avons déjà abordée dans 
notre précédente leçon, se retrouve dès qu'une 
valeur ou un registre 1 6 bits sont inscrits entre 
() dans une instruction . 

Pour compléter cette notion fondamentale, 
imaginons que nous voulions mettre dans A la 
somme du contenu des adresses $BFD7 à 


$BFBD, soit 7 adresses successives ; il nous 
suffit, dans ce cas , d'entrer : 


21 D7 BF LD HL,$BFD7 


7E LD A, (HL) 
23 INC HL 
86 ADD A, (HL) 

23 INC HL 
86 ADD A, (HL) 

23 INC HL 
86 ADD A, (HL) _ 


[►23 INC HL 
86 ADD A, (HL) 
23 INC HL 
86 ADD A, (HL) 
23 INC HL 
86 ADD A, (HL) 


Nous avons alors dans A le contenu des 7 pre- 
mières adresses du sous-programme de mise 
à zéro des registres (ouf I) soit 
$21 + 0 + 0+ $11 + 0 + 0+ $01 


Heureusement, on arrive à faire beaucoup plus 
court pour obtenir le même résultat, mais ce 
n'est pas notre préoccupation pour l'instant. 
L'instruction ADD a un avantage et un incon- 
vénient. Avantage : Elle utilise pratiquement 
tous les registres du Z80, elle est donc très sou- 
ple d'emploi. Inconvénient : Le programmeur 
n'a aucun moyen de savoir si le résultat de 
l'opération dépasse les capacités d'un regis- 
tre 8 bits (0 à 255) ou 16 bits (O à 65535). 
Pour pallier à cette lacune, les concepteurs du 


Z80 ont prévu un second jeu d'instructions 
appelé ADC dont le fonctionnement est iden- 
tique à ADD et qui n'en diffère que par le C qui 
signifie CARRY (retenue). En cas de dépasse- 
ment de capacité (résultat sup. à 255 ou 
65535), le bit C du registre F se positionne à 
1 ; il suffira ensuite de tester ce bit pour être 
renseigné sur la nature du résultat de l'opéra- 
tion. Par extension, on pourra effectuer des 
opérations sur 9 ou 1 7 bits mais ne nous éga- 
rons pas... 

La pratique valant toujours mieux qu'un long 
discours, n'hésitez pas à faire de nombreux 
essais à l'aide de REGISTRES autour de ces 2 
instructions et à analyser les résultat de ces 
essais. Pourquoi ensuite, ne pas vous aventu- 
rer à utiliser les instructions que nous avons 
déjà abordées dans nos précédentes leçons et 
à les intégrer dans vos programmes : LD (LOAD 
avec ou sans notion d'index), CP (comparai- 
son du contenu de A avec celui des autres 
registres), DEC (décrémenter = - 1), INC (son 
inverse), JP (Saut conditionnel ou non à une 
adresse). Vous pouvez également tester les 2 
instructions inverses à ADD et ADC qui sont 
SUB(Soustraction sans retenue) et SBC 
(Devinez...). 

Un dernier conseil : N'entreprenez aucun essai 
avant d'avoir enregistré le programme REGIS- 
TRES car une erreur de saisie pourrait provo- 
quer un plantage de la routine entrée. Dans la 
majorité des cas, un CTRL-RESET suffira pour 
récupérer BASIC et programme. 

BON COURAGE... 

SYLVAIN BIZOIRRE 


3 L**SPACE*<39> 

5 FOR I ~ $ B F C O T O * C O 4 O s PORE I , O s NEXT 
7 RESTORE 1000 

1.0 F OR J.~ *BFD 7TQ$8FFF 

2.0 RE AD A 
30 PORE I, A 

50 FOR I »*C020TO*C058 
60 READ A 
70 PORE I, A 

110 AD»*COOO 

120 PRÏNTHEX* (AD) s s INPUT 11 ” ï T* 

1 25 I FLEN < T* ) >2THENBEEP s PR ï NT " 65" 5 L* 3 " SIS" s GOTO 1 20 
i 30 ï FT*-= " * " THEN8EEP s RR 1 N X " BIT 3 L* ï PR I NTL* 5 " ifti" 
s PORE AD , O : AD-AD- 1. s GOTO 1 20 
1.33 T=VAL < ” * " +T* ) 

135 1 FT $« “ S> " THEN5O0 

140 TR*«HEX*<T> s 1 FLEN < TR* > » 1 THENTR*» " 0“ +TR* 

145 PORE AD i T 

1 50 PR i. NT ” SI" 3 T AB t 1 0 ) 3 TR* 

160 AD-AD+l. s 1 FAD«*CO 1F VHENPR ï NT ” At t e>n t i on 
demi ero adresse valide." 

170 GOTO 120 
500 UîiR(*BFD7> 

5 1 0 PR 1 NI ” A = ■’ 3 ; tT-~*B805 ï G0SUB900 : PRJ NT 

520 PR IN T ’’ F * " 5 s H**B804 s GOGUB'+o. i : W_iî;Ub‘0'> : FR C NT 

530 PR 1 NT " BC - " : : H-*KU09: Gt M JR^i'O: H---II- 5 » GGSI.IHVOi'. 1 : l 'R J NT 

540 PR t NT " DE ■ " : ; R- *B0- ,R: GtiRI IIF.-00 : H-4 c J 3 faUSl JB' 'Ou: PP 3.N r 

530 PR INT «HL -= •• s : |+. *MhO i s : *05 .UR9r .» , : t-r-| F .1 Ai L>l H--,. .. o i-l U NI 

StoO PR I NT "IX « "55 H-JiiBGOD J G t JSUB70O I i-=4~i 1. 5 GüSUi.i9..M i : PR 3 N! 

570 PR I NT " 1 Y * ”55 H**B80F s G0SUB90 1 # : H -H i- UUSI 3RV. u., :: PF 3 N 1 

580 PR INT" A ~ 11 ; : H~*B8 Ils GÜSUB900 s FR 3 NT 

590 PR I N X » F* « ”35 H**B8 1 0 ? 80SUB900 f 60SUB920 î PR I NT 

600 PR ï NT " BC ' * "ï sH=*B815ïGCiGUB90. nFkll 1 i (3USI lf<?fiOi PP INT 

6.1.0 PR: ï N T " DE * 11 3 SH- 1 «SB J ■ GOSUH I |-4-i - 'i. ï g! .SI lÜ'-'O. ' ï PR T N i 
620 PR I NT" HL ' " 3 ï H«*B8 1 3 s G0SUB900 ! H-H - 1 s GOSUB900 s PR I NT 
630 PR I MT "SP * ”3 s H**B803s 60SUB90Q: H»H-1 : G0SUB90Os PK3 Ni 


890 END 

900 A 35 -H EX $ < PEEK (H) > 

905 3. PLEN (A* ) - 1 THENA*” " 0" +A* 

910 PR 3 NT A* 3 
vif. Hi-.îlJRN 

v,i> i -■.'3650 44 EK OD ïLLtS-jIHM- OR 3 M I “ 

925 C=C /2 5 E— 0 ï I F C< 1 ÎHENRETURN 

930 I FD >-CTHENE- 1 * D=D~C 

935 READF* ï I FF*=" X " THEN925 

940 PR I NT F* 3 " ® " 3 STR* ( E ) 3 " "3 


■î'b GU 10923 
9':.^ uni A"-.”, "7", 
loOo ’ »= M I SE 


X", "H", "X", "l'/V", "M” 
ZERO DES REGISTRES 


1 0 1 0 DATA *21, *00 , *00 
1020 DATA *11, *00, *00 
1030 DATA *01, *00, *00 
1 040 DATA *DD ,*21, *00 , *00 
1 050 DATA *FD , *2 1 , *00 -I *00 
1060 DATA *E5 
1070 DATA *F1 
1080 DATA $08 
1090 DATA *E5 
1100 DATA *F1 
1105 DATA *08 
1110 DATA *D9 
1 1 20 DAT A *2 1. , *00 , *00 
1130 DATA *1.1, *00, *00 
1140 DATA *01, *00, *00 
1150 DATA *D9 
1160 DATA *ED, *73, *00, *BA 
1170 DATA *31 , *00, *BB 
1200 ' 

123 0 SAUVEGARDE DES REGISTRES- 

1220 ' 

1230 DATA *22, *00, *B8 
1240 DATA *ED,*73,02,*B8 
1260 DATA *F5 
1270 DATA *E1 
1280 DATA *22 , *04 , *B8 


: ■ l.i> HL,ooO'iH 
: 'I 0 DI-, 00 ooH 
:’U! HL , UOu< >1 1 
5’ LD J.X,0oooH 
■l.D I Y , uüOOl I 
■■ PHSH HL. 

' PUE' AI- 
'EX ÂF, AF' 
■RUSH HL 
1 POP AF' 

’ t X AI" , Hi- ‘ 
’EXX 

'LD HL , A <X' 01 1 
’l D DE , QOO' iH 
'LD RO , o. 1 
’EXX 

1 LD ( RA. >0 ) » :'.p 
’LD SP, BBOOH 


’LlMBGOu) , HL. 
’LD <88021 ,SP 
' PUSH AF 
'POP HL 
' LD < B804 ) , HL 


1 290 
1 3ô< ) 
1310: 
t '.VO 
1 330 
1340 
1330 
1 Ifc. ■ 

r-.zo 
1 3i.il.) 
139u 

140.., 

1 4 1 O 
1420 
1 4 30 
1 44o 
1 450 


DhI A 
DATA 
DATA 
LIAI A 
DA 1 A 
DA I A 
DAT ri 
DA I A 
DA TA 
DA I A 
DATA 
J )A I A 
DM TA 
DA I A 
DA 1 A 
DA I A 
DATA 


*eij, *7 
*EU, *43 i 
+E."£o *+• ;.. 
*DD, *'.’', , 
*F D, *22 
*■ >t< 

*F 

*E1 

*?2,*io, 

*08 

*D9 

*72. *12, 
*F.-D, *43, 
+ 1 P , *5 
*B9 

*r f' , * 7 Û i 
*09 


*> -6 

*B8 

•1 B 

<b806> 

SP 

*08 

*iHR 

1 l.D 

1 BBi »S ' 

DI. 

*"A 

*RS 

1 L 17 


de: 

*»>L. 

*H|f 

’LD 


CX 

*■ )F 

6 hS 

'lu 


IŸ 



■|- X 





■PUSH AF 




'PÜP HL 


*H8 


‘1 Li 

<B0101 

, HL. 



EX 

AF , Al- 




:, EXX 


*KR 


’LD 

U+312 ■ 

.HL 

*14, 

+ H.i 

' 1. ü 

< El 8 1 4 > 

, Pf 

*16, 

*Bb *i 

' I. 0 


■ LH 


5’E.XX 

*00,*BA'. 'i D SP, IBAOO) 
s ' RET 


PITMAN 


PITMAN est un jeu inspiré d'une revue japonaise 
et adapté au S.BASIC. Il fonctionne donc sur MZ 
700 et MZ 800 en mode 700 avec BASIC 700. 


Ce jeu est passionnant à plus d'un titre. D'abord parce qu'il constitue 
une suite inépuisable de casse-têtes à résoudre, ensuite parce qu'il fait 
participer activement le joueur à la création d'autres problèmes. 

Le programme comporte 50 écrans graphiques différents, à difficulté 
croissante, comprenant chacun 1 homme (Pitman) et 1 ou plusieurs dia- 
mants. Le but de l'opération est de faire accéder Pitman à ce(s) dia- 
mant(s). Pour s'aider, Pitman peut utiliser des échelles et des pavés hexa- 
gonaux qu'il pousse à volonté. 2 types de carrés sont également à sa 
disposition : les carrés bleus, indestructibles mais bien utiles pour se 
déplacer et les carrés rouges que Pitman peut détruire pour se dépla- 
cer. Comme tout jeu de qualité, les règles sont très simples mais vous 
vous apercevrez que l'objectif à atteindre l'est beaucoup moins. Cela 
peut même durer de longues heures qui se prolongent tard... tard dans 
la nuit (expérience vécue). 

L'intérêt de Pitman ne s'arrête pas là. Il permet, en effet, de créer votre 
propre fichier de tableaux grâce à un éditeur graphique simple et pratique. 

Entrons dans les détails : 

Tapez le programme, vérifiez-le très soigneusement car certaines ins- 
tructions sont complexes et les lignes de DATA's ne souffrent aucune 
erreur. Sauvegardez votre programme et tapez ensuite le fatidique RUN. 
Après quelques secondes d'initialisation, le titre s'affiche avec le choix 
entre le jeu et le moniteur graphique. Si vous désirez jouer et ne pas 
commencer par le premier tableau, vous pouvez taper un chiffre entre 
1 et 9 qui vous affichera le tableau du chiffre tapé * 5. En cours de 
jeu, il vous suffit de déplacer Pitman avec les touches curseur. Vous 
pouvez, à tout moment, interrompre le jeu en tapant « S » (tableau sui- 
vant), « P » (tableau précédent) ou « M » (réaffichage du même tableau). 
Attention cependant, le fait de changer de tableau vous fait perdre 1 
Pitman, et vous n'en avez que 5. Une dernière commande : « E » vous 
permet de passer au moniteur intégré dont les commandes sont les 
suivantes : 

A : Afficher la liste des commandes disponibles dans le moniteur. 

J : Retourner au jeu. 

L : Lire un fichier de 50 écrans. 

E : Effacer 1 écran. 

D : Activer l'éditeur d'écran pour créer de nouveaux tableaux. 

R : Enregistrer un fichier de 50 écrans. 

T : Retour au début du jeu avec initialisation des écrans d'origine. 
Quelques commentaires sur les commandes de ce moniteur. La com- 
mande R enregistre tous les écrans en cours au moment de la commande 
y compris ceux éventuellement effacés, modifiés ou créés. L'éditeur 
d'écran permet de modifier un écran existant ou de créer un écran pré- 



cédemment effacé. Le curseur graphique se déplace à l'aide des tou- 
ches curseur. 

Pour modifier une case, taper sur les touches 1 à 7 : 

1 Pour effacer la case. 

2 Pour afficher un morceau d'échelle. 

3 Pour afficher un diamant. 

4 Pour afficher un carré rouge. 

5 Pour afficher un pavé hexagonal. 

6 Pour afficher un carré bleu. 

7 Pour afficher 1 Pitman. 

M Pour retourner au moniteur. 

P Pour afficher le tableau précédent. 

S Pour afficher le tableau suivant. 

Voilà, il ne vous reste plus qu'à vous passionner pour ce jeu comme 
nous l'avons fait nous-même, à créer de nouvelles difficultés - Atten- 
tion, ce n'est pas facile -, à concevoir vos propres jeux graphiques en 
vous aidant des idées apportées par PITMAN... et à nous en faire profiter. 


S. B. 


10 DEFKEY ( 1 )= "GOTO 100" +CHR* (13) 

20 B*="SJ’ initialise, patience, c'est fini . " s REST0RE2590: X=$BE00 
30 RE ADA* : B=B+ 1 : I F A*= " F " THENPR I NT : G0T060 

40 PR I NTM I D* ( B$ , B , 1 ) ; s F0RI = lT012Bï V=VAL (MID* < A$, 1,1) > s POKEX , V: X=X+1 : Y=Y+V 
50 NE X T « GOT 030 

60 IF(PEEK(*CF2E)01> + (Y07B37>THENPRINT"Erreur dans les DATA’ s. ": END 

70 ' , , 

BO ’ I Titre I 
90 ’ i ' 

100 COLDR , , 7 , 0 s CONSOLE : CLS ! RESTORE s G0SUB2250 
110 GETA*: IFA*=""THEN110 
120 IFA*="M"THEN1040 

130 IF VAL (A*) >OTHENL=VAL ( A* ) *5- 1 : J30T0 1 60 
140 IFA*=" "THENL=0: GOTO 160 
150 G0T01 10 
160 M=5: CLS 

170 ’ , , 

1B0 ’ I Présentation I 

190 ’ i • 

200 G=0 s GB=0 : I FL >49TtfENL=0 

2 1 0 CONSDLEO , 25 , 33 , 7 ï COLOR , , 0 , 4 : PR I NT " StEECRANEESB!" j US I NG " ### " ; L+ 1 : PR I NT " UUBP I T 
USEE" » MID* ( " .*****",M,5> ï " HMK liOOîOO" 

220 CONSOLE: F0RX=0T010:F0RY=0T07 
230 Q=PEEK(*BE00+L*B8+X+Y*11> 

240 I FQ=2THENG=G+ 1 

250 IFQ=6THENMX=X#3:MY=Y*3 

260 CURS0RX*3, Y*3:0N 0+1 GOSUB 2030,2040,2050,2060,2070,2080,2090 
270 NEXT: NEXT: TI $="000000” 

280 CURSORO , 24 : COLOR , , 7 , 0 : PR I NT " Wim^^mÊÊÊÊÊÊÊIÊÊÊI^^mÊÊÊÊÊÊÊm^KÊÊa" ; 

290 ’ , , 

300 ’ | Mouvements I 

310 ' • » 

320 I FSY > 1 THENCURSORMX , MY : G0SUB2090 
330 X=M X : Y=MY :X1=X:X2=X:SY=1: MUS I C " A " 

340 IF (PEEK ($0000+ <40*,<Y+3> ) +X+1 ) =0) # <GB=0) THENMY=MY+3s G0TO770 

350 GETA*: IFA*=" "THENCURS0R33, 12: PRINTCO, 43MID* (TI*, 1 , 1 ) 5 " : " ; MID* (TI*, 3, 2) ; 

I GHT* ( T I * , 2 ) : G0TD350 

360 ’ , , 

370 ' I SI I 
380 ’ i 1 

390 I F ( A*< > " il" ) + ( Y< 2 > THEN420 

400 A=PEEK(*D000+(40*(Y-3> >+X+l) :MUSIC"A" 

410 I FGB= 1 THEN I F < A=0 ) + ( A= 1 20 ) THENMY=M Y-3 : G0T0770 
420 IFA*O"K"THEN480 

430 ’ , 1 

440 ’ I il I 
450 ’ i » 

460 A=PEEK(*D000+(40*(Y+3> >+X+l > :MUSIC"A" 

470 IF (A=0> + ( A=*78> THENMY=MY+3: G0T0770 

480 I FA**= " B" THENHX =3 : MUS I C " A " : G0T0630 

490 IFA*="E"THENHX=-3: MUSICA" : G0T0630 

500 IFA*«="E"THEN1040 

510 I FA*= " S " THENL=L+ 1 s GGT0580 

520 IFA*-"P"THENL=L-i: IFL<0THENL=49 

530 I FA*= "P" THEN580 

540 I FA*< > " M " THEN320 

■■ : ■ 

560 ’ I affiche un tableau I 

. ■ 

580 M=M— 1 : 1 FM=OTHENMUS I C " EEEDDCCRRRRR " : GOTO 1 00 
590 CONSOLEO ,24,0,33: COLOR , , , 0 : CLS : G0T0200 

600 ’ ■ , 

610 ' I B B I 

620 ’ i 1 

630 IF < X+HX<0) + (X-+HX >30) THEN320 
640 B=PEEK (*D000+ (40*Y> +X+HX+1 ) 

650 I F < B=*7E > + ( B=*78 ) + < B=*DO ) + ( B=0 ) THENMX=MX+HX : G0T0770 
660 IF < X+HX*2<0) + ( X+HX*2>30> THEN320 

670 ’ , , 

680 ’ I Pousse un pave I 


700 IF (PEEK ( *0000+ (40*Y> +X+HX) < >*4E> + (PEEK (*D0C>0+ (40#Y> +X+HX*2+1 ) < >0) THEN320 
7 1 0 CURSORX+HX , Y : G0SUB2O30 : CURSORX+HX *2 , Y : G0SUB2070 
720 IFHX=3THENX l=X+3: X2=X+6s SY=3: G0TQ770 
730 X l”X-6: X2=X-3:SY=2 

740 ' , . 

750 ’ I Affiche Pitman I 

760 ' » 1 

770 MUS I C " A " : CURSOR X , Y : ONGB+ 1 G0SUB2030 , 2040 

780 A=PEEK(*D000+(40*MY>+MX+1> :GB=0 

790 I FA=*78THENGB= 1 

800 I F A=*7ETHENG=G- 1 

810 CURSORMX , MY 

.820 0NSYG0SUB2090 ,21 00 ,2110 

830 ’ , 

840 ’ I Chute d' 1 pave | 

850 ' i » 

860 Q=0 : FORX=X 1 T0X2STEP3: F0RY=2 1 T03STEP-3 
870 IFPEEK (*D000+ (40*Y> +X+1 ) < >0THEN920 


880 I FPEEK' < $D000+ ( 40*J^-31J„tXtl_K=*7EJ.HEJ\IClJ.RSQBX,,,Y.; GQSJJBZ050 : GQT09 1 0 
' 890 IFPEÉK <*DOGÔ+ <40* <Y— 3) ) +X + 1 ) =*43THENCURS0RX , Y! G0SUB2G70: G0T0910 
900 GDT0920 

910 CURSORX, Y-3:G0SUB2030:Q=1 
920 NEXT : NE X T î I FQ >0THEN860 
930 I F6 >0THEN320 

940 ' : ^ , 

950 ’ I Fin d’1 écran I 
960 ’ L - — 1 

970 CURS0R9, 12: COLOR, , 7, 0: PRINT"Fel i ci tati ons ! " î CURB 0R4, 14 
980. PRINTC7, 3" Vous avez gagne en " ; MID* <TI*, 3, 2) ; " m " 5 RIGHT* <TI*, 2) ; " 
990 MUS I C " CDE " : FOR I = 1 T03000 s NEXT 
1000 L=Ltl : M=5: S0T0200 

1010 ’ . , 

1020 ’ I Editeur I 
1030 ’ 1 J 

1040 COLOR, ,7, 1 SPRINT"®*** MONITEUR PITMAN ***" 

1050 PRINT" >" S 
1060 INPUT" " 5 A* 

1070 I FA*= " A " THEN 1180 
1080 I FA*= " J " THEN 1310 
1090 IFA*="L" THEN 1390 
1100 I FA*= " S " THEN1 530 
1110 I FA*= " E " THEN 1670 
1120 I FA*= " D " THEN 1 760 
1130 I FA*= " R ” THENRUN 
1140 MUSIC" A" SPRINTA*; " 

1150 ’ , 

1160 ’ I Aide I 

1170 ’ i 1 

1180 PR I NT " A I DE " s PR I NT 

1190 PRINT" Commandes " 

1200 PRINT"A s Aide 
1210 PRINT" J s Jouer 
1220 PRINT"L s Lire 
1230 PRINT"S s Sauver 
1240 PRINT"E s Effacer 
1250 PRINT-D s Editeur 
1260 PRINT"R : Retour 
1270 PR INT s GOTO 1050 

1280 ’ , , 

1290 ’ I Jouer I 

1300 ’ 1 1 

1310 PR INT "JOUER" 

1320 PRINT" Jeu No.-"; 

1330 GOSUB2200 
1340 M=5s CLSs G0T0200 

1350 ’ i , 

1360 ’ I Lire I 
1370 ’ « 

13B0 REM *** ne pas taper les lignes 1360, 1370. 1380. 1430. 

/ous possédez des disquettes! madifi er 
commandes WOPEN, ROPEN, INPUT/T et PR 


Place ? 0UI=C03"; 


1440,1450 si 
egalement le 

IN/T *** 

1390 PRINT"LIRE" s PR INT "Cassette en 
1400 G0SUB2150 • 

1410 PRINT" Appugez sur PLAY. " 

1420 PRINT" Je Iis les écrans..."; 

1 430 A=*BEOO s ROPEN " P I T " 

1440 F0RI=1 T05Q 

1450 INPUT/T • C*s F0RJ=1TDLEN (C*> 

1460 POKEA, VAL <MID* <C*, J, 1 ) ) sA=A+l 
1470 NEXTs PRINTI NEXT 
1480 CLOSE: PRINT 
1490 GDTO 1050 

1500 ’ , 

1510 ’ I Enregistrer | 

1520 

1530 PR I NT "ENREBISTRÊR" SPRINT "Cassette en place ? DUI=C03" 
1540 G0SUB2150 

1550 PRINT" Appuyez sur RECORD-PLAY. " 

1560 PRINT" J’ enregistre les écrans... "; 

1570 A=*BEOO s WOPEN " P I T " 

1580 FOR 1 = 1 TO50 s C*= F0RJ=1T088 

1590 C*=C*+STR* (PEEK (A) ) s A=A+1 
1600 NEXT 

1610 PRINT/T C*s PRINTI 
1620 NEXT: CLOSE: PRINT 
1630 GOTO 1050 

1640' ’ . — — — — n .. . . 

1650 ’ I Effacer I 

1660 ’ *— —J .. 

1670 PRINT"EFFACER" s PRINT"Ef f acer No.-»; 

1680 G0SUB2200 
1690 PRINT"0K?=C03"; 

1700 GOSUB2150 

1710 FORQ=OTOB7 s POKE*BEOO+L # BB+Q , O : NE X T 
1720 GOTO 1050 

1730 ’ . , 

1740 ’ I Visualiser | 

.'1750"' L ; — 1 ' 

1760 PRINT"EDITEUR D’ECRANS" :PRINT"Ecran No.-"; 

1770 G0SUB2200 

1780 COLOR, , , 1 s CLSs F0RX=0T010s F0RY=0T07 
1790 Q=PEEK<*BE00+L*88+Y*11+X) :CURS0RX*3, Y*3 
1 800 0N0+ 1 G0SUB2030 , 2040 , 2050 , 2060 , 2070 , 2080 , 2090 
1810 NEXTs NEXT: X*=0: Y=Os HX=0: HY=0 
1 820 CURS0R35 , 1 : COLOR , , 7 , 1 : PR I NTL+ 1 ; 

1830 HX=0sHY=0 

1840 CURS0RX*3,Y*3s COLOR, ,7,0: PRINT" rfriUÜBSBH&J"; 

1850 GETA*: IFA*=" "THEN 1850 

1 860 I F ( A*= " H" ) * < Y >0 ) THENHX=0 : HY=- 1 : GOTO 1 960 

1 870 IF <A*= " !!")*( Y< 7 ) THENHX=0 : HY= 1 : GOTO 1 960 

1880 IF <A*="G" ) * <X >0) THENHX=-1 : HY=0: G0.T01960 

1 890 -1 F < A*= " E" > * < X< 1 0 ) THENH X= 1 : HY=0 : GOTO 1 960 

1900 IFA*="S"THENL==L+l s IFL>49THENL=0 

1910 IFA*="P"THENL=L-1 : IFL<0THENL‘=49 

1920 IF (A*="S" > + <A*="P" ) THEN1780 

1930 IFA*«"M" THEN 1040 

1940 Q= VAL (A*): IF ( Q< 1 ) + < Q >7 ) THEN 1 960 

1950 P0KE*BE00+L*88+X+Y* 11,0—1 

1960 Q=PEEK<*BE00+L*8B+X+Y*11> 

1970 CURS0RX*3, Y*3 

1980 ONQ+ 1 GOSUB2030 , 2040, 2050, 2060, 2070, 2080, 2090 
1990 X=X+HXS Y=Y+HYS GOT01830 

"2000 ’ . : — — , 

I 

2030 COLOR, ,4,0: PRINT" 

2040 COLOR, ,7, OS PRINT" 

2050 COLOR, ,6,0 SPRINT" 

2060 COLOR, ,2,0: PRlNT n r 
2070 COLOR, ,2, 0: PRINT", 

2080 COLOR, ,7, 5: PR INT" I 
2090 COLOR, ,7, 0: PRINT" 

2100 COLOR, ,7,0:PRINT"\« I 
2110 COLDR , ,7,0: PR INT" 

2120 ’ , , 

2130 ’ | GET"0" I 
2140 ’ 1 


; : RETURN 
; : RETURN 
; : RETURN 
;" ; : RETURN 
; : RETURN 
|" ; : RETURN 
" ; : RETURN 
" ; : RETURN 
'" ; : RETURN 


2150 INPUT""; A*: IFA*= 

2160 RETURN 1050 

2170 ’ . , 

2180 ’ I INPUT 1-50 | 

2190 ’ 1 1 

2200 INPUT"";A*:L=VAL<A*> 
2210 RETURN 

2220 ’ . , 

2230 ’ I S. P. TITRE I 

2240 ’ 1 1 

2250 C0NS0LE2 ,12,0,40: COLOR , . 

2260 F0RY=3T012 

2270 CURS0R3,Y SPRINT "BB ■ 


" 0 " THENRETURN 


- 1 s I F < L< 0 > + < L >49 > THENRETURN 1 050 


l’est pas une commande val i de" : G0TD1050 


2280 NEXT 

2290 F0RX=0T04 s RESTORE 
2300 F0RY*0T07 
2310 READMX,MY 

2320 CURSOR MX+X.MY: PRINT» WHI"; 

2330 NEXT 

2340 CURS0R6, 3+X : PRINT’W ; 

2350 NEXT 

2360 CURS0R7 . 3s PRINT" 

2370 CONSOLE : COLOR ,.7.0 

2380 CURS0R8, 16: PRINT "D’apres Y. ISOKAWA (OH.MZ)" 

2390 FORY= 1 8T024 
2400 READA*: CURSOR 14, Y SPRINTA*; 

2420 CURS0R9, 20:G0SUB2050 
2430 CURS0R28, 20: G0SUB2050 
2440 COLOR ,,7,0: RETURN 

2450 ’ , 

2460 ’ I Données titre | 

2470 ’ 1 1 

2480 DATA3, 3. 3, B, 12,3, 13,3, 19.4,26,3,26,8,32,4 

2490 DATA" , MENU ," 

2500 DATA" II" 

2510 DATA» IMsMoniteur I" 

2520 DATA" II" 

2530 DATA" I ESP: Jeu I" 

2540 DATA" I I" 

2550 DATA" * • " 

2560 ’ « , 

2570 ’ I Données tableaux I 

2580 ’ L — * 

2590 DATA “ 00040000000 1 554505555 1 1 004050000 1 1 063000000 1 5555050000 1 0000500000 1 2000 
000004 1 555055505550040000000000404000000005 1 2300000005 1 322 " 

2600 DATA’' 0002005 1 3330333205 1 0033300505 1 0000006505555555550000605040000004 151 400 
00024 1 5 1 20000233 1 5 1 220052 11151 5500555555 1 5200000000 1 550055 " 

26 1 0 DATA " 55555550000004000000200030000203 1 0 1 25450 1 0002 1 3525400203 1 03432023 10163 
33403002055533 1 32 1 3523333 1 5555555555542400005335444 1 5 1 0533 " 

2620 DATA " 533300 1 05335002 1 5 1 0533534400 1 053352 12151 05335 1 0200 1 6555500400000000064 
04000000 1 330 1 000000 1 003333 1 1 1 03333200 1 54200003055044200005 " 

2630 DATA" 00 12450531 01 51 3201 1040005550140400653501402551535014014415355150233153 
5510011 5553555005 1 533353502 1 1 555553330500 1111 3336520302 1 33 " 

2640 DATA " 3 1 540324 1 344 1 530354 1 034 1 500304 1 003 15111031 0251 55515510 1 1 1 0000001000040 
02053 1551401 50531 051201 5053 1 05 1 2055055 1 05 1 405500 1 1 05553000 " 

2650 DAT A " 5 1 1 002005555 11001 006000 1 0060005330204333 1 523340233 115431303031 5333 1 300 
40151331 30353 1051013151 03035 1 3330 1331331 230000020000000020 " 

2660 DATA" 0020000200060002000005450000000002000005454545454500000000000505050505 
0500400100400005551004000000000041100555554341001 1 1 1140410" 

2670 D ATA " 0 1 3230303 1 20 1 0420500 1101021 0506 1 322005202333452 10514031 3533 1053101 3533 
3 1 050 1 1 303333 101416511311 542335 141011 34333 1 333000 1 00040000 " 

26B0 DATA " 000000400000500 1 1 40555 1 000 14344000000 1 4034000000 1 3033000206 1 0040002405 
5113000120004006004001 111131111 110040304001 10323032301 1035" 

2690 DATA " 303530 1 1 033303330 1 1 000 1 0 1 000 1 1 000 1 0 1 000 1 400055400433064003002 1 1 533 1333 
0330240 1 3303003333 1 00 1 0302540 1 505000403333300203 1 00000 1 050 " 

2700 D ATA " 1 1 1 1 1 000000 12441 420000 14241 244000 12421432100142412441001 322 1 423 1 0055 1 5 
12411 0252 1511116011 000000000 1 1 333433343 1 1 032363240 1 1 033443 ” 

2710 DATA " 420 1 1 032203330 1 1 003202400 1 1 002403400 1 1 033330330 1 00000033545 1 5543 1 33525 
1 5025 1 43545 110401 33545 10033300333011 53333344 1 0640400033505 " 

2720 DATA " 50505 12101 11111111 1600000000015022404240150002020201504420404015020002 
020 1 5042402240 1 5000000000 1 000400000000545 1 4555 1 0004403600 1 " 

2730 DATA " 0023303300 1 00350 1 0000 1 02003üu0O0 1 0505555555505050000000000005335440000 
255554400003 1115311 004040 1 200 111 43400500 1 1 633400200 1 i 30330 " 

2740 DATA "05001 111111 15001340000000003605555555103240000001303240000010303240000 
1 3030324000 1 0303032000 1 3030303000 1 1 1 464000000 1041 4000000 10" 

2750 DATA "41 4000000 1 05454 1 0000 1 004040 1 0001 0550505500 1 0040405002 1 0550505005332340 
520402 1 33405545 1 40003 1 5044 13315410035101 50433 1401 3023300 13" 

2760 DATA " 1 330554 131 50236333 151511 3000004000030353 111111 3053500000 1 3035304000 1 30 
000333001300003230013333033300100030060001555561 111 1153355" 

2770 DATA " 00042 1 5333500423 1 535550423 1 553520023 1 555355503 1 1 535335202 1 5535555 10155 
330000000024000000000 141 0000005503 1 0000000005 1 0020040000 10" 

2780 DATA" 15055001550100000010000000006100000405333330004055555501 14000000201434 
5555550 1 4040 1111101 30303230 101 00502420 161 0050 121011 000000 1 " 

2790 DATA " 000 1 3333330400 1 4006000555 1 3055500000 1 4022500 1201 30545000 101 003330000 1 3 
01333333303233040400033331 11111 130520300001303303000013000" 

2800 DATA " 640000 1 1 330330000 1 0000000000 1 55555555500000000052400000404053 113331031 
541100013015311 4040Ô0 1001130331 0552 1 1 0300 1 30554 16015301 254 " 

28 1 0 DATA " 300004300003344033 1 0003 1 34303 1 0603 1 0320555553 1 0040302503 1 2040345003 1 40 
4035000311 1 1 1555550000640400000001504000040150040000415000" 

2820 DAT A" 4020 13000004050 13000042200 100 10032200555 100322000000041 1 1 1000002461410 
0002411141020241151310104115240111033251300110035514001100" 

2830 DATA " 333 1 1 1 00566656665205555555555 1 0000400050 1 0 1 52300050 10151 440050 1 1 333234 
0601 10003331501 1111111 15000000044444000200422220001 1024222" 

2840 DATA " 60000522422 1 0000022242 1 000 1 522224 1 000 1 022222 1 0005 H 1 1 1 1 1 00404000000003 
01111111 0004 1 40000 1 00032 1 0020 1 05004 1 4050 1 025030 1 000 101 0000 " 

2850 DATA " 0006 1551015111 550003400400000 1153111111001 530000 1 550 1 530400 1 020 1 503330 
11501 503230 1 1 1 O 1 1 03330 1 0000000006 1 1 600040002 1 1 304424403 110" 

2860 DATA " 52424250 1 1 024222420 1 1 054222450 111 4222224 1111 2222222 1111111111111001400 
40002001 101 100152041010204610410101012001 1010041 1010101041 " 

2S7Ô DATA " 00000 10101 020000 1 00000 1 0332004020403340 1 2050303440 11111011 330000033 113 
30460040 1 1 000 1 33320 1 1 003000 1 50 1 3033330 1 00000000004004 1 5555 " 

2880 DATA " 555002 11111 6000420400055 1 0223200005 1 0423320005 1 0243332020 1 3223333050 1 0 
2200000520400000000545510004050204115550505051 10020030301 1 " 

2890 DATA "01 5003 1311101 0002505 1 1 00006 101011 2500000400 1 400040 11421 2555400 1 34 1 4000 
400 1021 2330420 1 03 1 3003250330 1 000 1 25334055 161 25003050000000 " 

2900 DATA " 0055 1 5552555555 1 5354040255 1 5554022455 1 0202 1 42355 1 5255552055 1 0306002055 
55555555550204 1 000000 1 504 1 000000 1 504 1 000000 1 304 1 0004005 1 04 " 

29 1 0 DATA "1551 4005004 1 6003 1 0542233003 1 05023 121001 004005 1 00200 1 3304 1 0 1 540 1 0203 1 O 1 
040 1 0330 1 0033 1 1 0006 1 0040 1 33333 101501 2000000 1 03 1 55055505333 " 

2920 DATA "2421 4244222422 1 3460444422 1 1 1 30000244 1 500 111144413451 2244445 1 33 1 3330005 
53155201111111331 0300433333364 1 1 1 224 11124221442101 032 1 4422 " 

2930 DATA "11103313111 33302333 1 0 1 3320 1 423 11133101 220222 1210" 

2940 DATA"F"ïREM OUF! 



80 B/800 


IQGICKL 
« LOGITHEQUE » 

La mbe au point du tableur promis dans notre der- 
nier numéro n'étant pas encore terminée, nous 
avons inversé l'ordre de nos parutions et vous 
proposons , dés maintenant, le logiciel prévu 
pour notre prochain bulletin. 

Nous utilisons ce programme pour générer les logithèques MZ présen- 
tées dans les différents «Sharpentiers ». Il s'agit, en fait, d'une gestion 
de fichier spécialisée comportant Création, Annulation et Liste classée 
et triée des programmes. Vous pourrez ainsi constituer sur cassette ou 
disquette votre propre logithèque éditée sur écran ou imprimante. Dès 
son lancement par RUN, le programme lit automatiquement le fichier 
appelé « LISTE PROGS.80B » (sous-programme situé en ligne 900). Lors 
de sa première utilisation, il vous faudra donc supprimer provisoirement 
la ligne 97 qui appelle cette routine puisque votre fichier n'est pas encore 
créé. 

LOGITHEQUE peut être aisément adapté au MZ 800 moyennant la modi- 
fication de certaines commandes : 

PRINT CHR$(6) devient CLS 
CONSOLE C80 devient INIT « CRT :M3 ». 

Il vous faudra également adapter les caractères de contrôle de l'impri- 
mante (PRINT CHR$(X) aux caractéristiques de votre propre imprimante, 
le programme étant conçu pour imprimante SHARP P5. 


10 REM LOGITHEQUE MZ 80 B - S. B. - 11/84 

1 1 REM 

90 A=250:DIMTT* (A) ,CO*(A) ,CA*(A> , TM(A) ,CT*(10) ,L*<- 
95 «Htüt******** 1 ^ CL^^'^UED" 

97 BOSUB 900 
99 REM ■SHSTW 

1 00 C0NS0LEC80 , R , SO , 24 : PR I NTCHR* ( 6 > : PR I NTSTR I NG* ( " • 

110 L* < 1 ) = " -r i 1 f . t- i — r—i ‘ 

120 L* <2> =" I III II 

130 L4<3>=" I I I I i I I 


140 L* (4) =“ - 1 J 1 1 1 1 •*-■*- J- 1 1 F 

145 F0RI=1T04: PRINTL* < I > s NEXT 
150 PR I NTSTR ING* ( " » 80) 

153 PRINTTAB (32) 5 "A U MENU.. ." s PRINT: PRINT 

160 PRINT” ** 1 ** ENTREE DE NOUVEAUX PROGRAMMES" s PRINT 

170 PRINT" ** 2 #* EFFACEMENT DE PROGRAMMES" : PRINT 

180 PRINT" #* 3 ## LISTE DES PROGRAMMES" : PRINT 

190 PRINT" **: 4 ** ENREGISTREMENT LISTE": PRINT 

210 PRINT" ## 5 #* FIN" : X=Os Y=22 

220 CURSORX, Y: PR INT" 

X : 

223 GETRE*: IFRE*.= " "THEN223 

225 RE=VAL (RE*) : IF <RE=0> + <RE>5) THENG0SUB10100: GOT0220 

230 ON RE G0T0300, 500, 600. 800 

250 END 

3015 NP=NP+l:TR=0:EN=l 

310 PR I NTCHR* < 6 > : CURSDRO , 2 1 : PR I NTSTR I NB* < " , 80 ) 

312 PRINTTAB (20) i "E N T R E E NOUVEAU PROGRAMME 

313 PRINTTAB (19) ; " 

315 CURSGR1 <19: PRINTSI ZEî " Octets libres. 

ENTREE No. "!NP!" *# " ! CHR* (5) 

320 PRINTTAB <21 > ! " r 7 ": X=l: Y«2 

330 CURSORX, Y: INPLJT" TITRE DU PROGRAMME : " ; TT* 

335 I F < LEN < TT* ) > 1 6 ) + < LEN < TT* > < 2 > THENGOSUB 1 0 1 00 : Gü T0330 
340 CURSGR2 1 , 4 : PR I NT " i — : 


• VOTRE CHOI 


342 PR INT --PRINT : PR INT" - 


" : X=7s Y=5 


350 CURSORX, Y: INPUT" COMMENTA IRES : " ! CO* 

355 I FLEN < CO* ) >90THENG0SUB 1 0 1 00 : GDT0350 

357 G0SÙB1 0900 -.G0SUB11 100 :CURS0R1 0,9: PR INT "CATEGORIE : " ! : GOSUB10200: CA*=RE* 

405 GOSUB 10900: CURS0R1 , 23: PRINT "En K-OCTETS, sans décimal e. " s X=5: Y=1 1 
410 CURSORX, Y: INPUT"TAILLE MEMOIRE : " ! TM* 

415 TM=VAL(TM*> : IF (TM=0) + (TM< >INT <TM> > + <TM>64) THENGOSUB 10 100: G0T0410 
•430 CURSOR 1 , 22 : PR I NT " # # POUR CONTINUER : CEI ERREUR DANS L 

ENTREE"! 

440 CURSOR 1,23 SPRINT" C N J NOUVEAU PROG 

AMM E"! 

450 CURSPR27, 24 : PR I NT " C M 3 MENU " ! : GOTO 10300 

500 PR I NTCHR* < 6 ) s CURSORO , 2 1 : PR I NTSTR I NG* < " , 80 > : TR=0 : EN= 1 

510 PRINTTAB (5) ! "A N N U .L. A T I O N D ' Ü N PROGRAMME DE LA L 
T E" ■ 

520 PRINTTAB <4> ! " “ ' 


10700: GO 


» - c H R* <5> 

530 PRINT: INPUT" Titre exact du programme a annuler : ";TA*:A=0 
550 F0RI = 1T0NP: I FT A*=TT * < I ) THENA= I 
555 NEXTI 

560 I F A=OTHENPR I NT s PR I NT " ♦♦♦ PROGRAMME INCONNU DANS LA L ISTE ♦♦♦" 

TOI 0800 

570 GOSUB 10510: PRINT 

575 PRINT" Dn 1 7 efface vraiment 7 <0/N> ” 

5577 GETRE*: IFRE*="N"THEN100 
578 IFRE*< >"0“THEN577 

580 GOSUB 1 0900 : CURSDR20 , 22 : PR I NI " PATIENCE...! J 7 EFFACE ET JE REMET DE L 7 ORDRE" 
585 FORI“ATONP- 1 : TT* < I ) =TT* < 1 + 1 ) : CO* < I ) =C0* < 1 + 1 ) : CA* < I ) =CA* < 1 + 1 ) : TM < I ) =TM (1 + 1) 

' 590 NEX T I s NP=NP - 1 : GOSUB 1 0800 

600 PRINTCHR* (6) : CONSDLESO, 20: CURSORO, 21 : PR I NTSTR I MG* <"«-", 80 > 

605 GOSUB 1 0900 :CURS0R23, 23: PRINT"!.. ISTE DES PROGRAMME S" ü CURSOR 
22 , 24 : PR I NTSTR I NG* <""", 39 ) ! CHR* < 5 ) 

607 I FTR— ÔTHENGGSUB 1 500 : TR=1 

610 PRINT" ♦♦ LISTE : CEI SUR ECRAN" : PRINT: PRINTTAB < 12> !" C II SUR IMPRIMANTE" 
615 GETLP*: IFL.P*=" "THEN615 
617 IFLP*=" I " THENG0TD700 
618 IFLP*< >" E" THENGOSUB 1 0700: G0T06 15 

620 PRINT: PRINT" ♦♦ LISTE GENERALE CG 3 OU PAR CATEGORIES IC3 
622 GETRE*: IFRE*=" "THEN622 

624 IFRE*="G"fHEN630 

625 I FRE*= " C " THEN640 

627 GOSUB 107 00: G0T062 2 

630 PRINTCHR* (6) 

632 F0RI = 1T0L.EN (CL*) : CP*=MID* (CL*, 1,1) 

634 FOR J= 1 T ONP : I FC A* ( J ) =CF'*THEN60SUB 1 1 000 
636 NEXTJ, ISG0TD1 1200 

640 PRINT: GOSUB 10900: GOSUB 1 13 00: CURSORO, 12: INPUT" ♦♦ CATEGORIE CHOISIE : ":CC*: 
GOSUB 1 0900 : PR I NTCHR* ( 6 > 

6^2 FDRJ=1T0NP: IFCA* (J ) =CC*THENGQSUB1 1000 
643 NEXTJ :G0T01 1200 

700 PR I NTCHR* < 6 > : GOSUB 1 0900 : CURSORO , 2 1 : PR I NTST R J NG* ( " , BO > 

710 CURSGR20 , 22 : PR I NT " L. ISTE DU BU L I. E T I N" ! : CURSQR20, 23: PR I NTSTR ING 
*<"-", 32 ) 5 : GOSUB 1 1 500 

720 PRINT /PCHR* (21 > ! CHR* < 18)- ! STRING* ( , 40) i CHR* (17) : FQRI-1TQ4: PRINT /PL* ( I > : NE 

XT : PR I NT /PCHR* < 1 S > î STR I NG* ( " ~" , 40 ) : PR I NT /P 
725 FOR J= 1 TOI..EN ( CL* ) : PR INT /P : PR INT /P: PR INT /PCHR* (21 ) i CHR* ( 18) !CT*(J) ! CHR* (18) !S 
TR ING* ("-", 40 ) : PRINT /PCHR* (19) : D*=MID* (CL.*, J , 1) 

730 FQRI=iTONp: IFD*=CA* ( I ) THENG0SUB1 1600 
735 NEXT.I , J 

740 G0T01 1200 

800 DELETE "LISTE PR0GS.80 B" 

803 WOPENttl, "LISTE PROGS.BO B" 

805 PRINT#1 , NP 

810 F0RI==1T0NP: PRINT#1 , TT* < I ) , CO* ( I ) , CA* ( I ) ,TM(I> 

820 NEXTI : CLOSE#! 

830 GOTO 100 

900 ROPENttl, "LISTE PRQGS.80 B" 

905 INPUT# 1 , NF' 

910 F0RI=1T0NP: INPUT#1 , TT* ( I ) , CO* < I > , CA* < I > , TM ( I ) 

920 NEXTI: CLOSE# 1 
930 RETURN 

1530 PRINT: PRINT" Patience, ie trie ...": PRINT 
1540 PRINT" ("5 :FQRI=lTONP-l: PRINT" " ü NEXT: PRINT" ) " 

1545 CURS0R1 , 4 

1550 F0RI=1T0NP-1:F0RJ=I+1T0NP 

1555 IFLEFT* (TT* (J) ,2) <LEFT* (TT* ( I ) ,2) GOSUB 1590 
1560 NEXT: PRINT". " ü NEXT: PRINT: PRINT 
1580 RETURN 

1590 TR*=TT* ( I ) : TT* ( I ) =TT* ( J ) : TT* (J ) =TR*: TR*=CD* ( I > : CO* ( I ) =CD* ( J > : CO* ( J ) =TR*: TR 
=TM ( I ) : TM ( I ) =TM ( J ) : TM ( J) =TR: TR*=CA* ( I ) : CA* ( I ) =CA* ( J ) : CA* ( J ) —TR*: - RETURN 

9998 rem ■ : MÊÊÊÊÊÊÊÊÊÊÊÊÊÊm 

1 Ô 1 00 CURSORX , Y : PR I NTSPACE* (150): CURSORX , Y : GOSUB i 0700: RETURN 

10200 GETRE* : I FRE*= " " THEN 1 0200 

10210 I FRE*= "J" THENPR I NT " J eu » : RETURN 

10230 I FRE*= " U " THENPR I NT " Ut i 1 i t ai r e " : RETURN 

10250 I FRE*="E "THENPR INT "Ensei qnement, Scienti f ique" : RETURN 
1 0260 I FRE*= " D " THENPR I NT " Di ver s " : RETURN 
10270 GOSUB 1 0700 : GOTO 1 0200 

10300 GETRE*: I FRE*= " " THEN 1 0300 
10310 IFRE*="E"THENG0T0310 
10320 IFRE*="N" THENGOSUB 10345: GQT0305 
10330 I FRE*= " M " THENGOSUB 1 0345 : GOTO 1 00 
10340 GOTO 10300 

10345 TT* (NP) =TT*: CO* (NP) =C0*: CA* (NP) =CA*: TM (NP> =TM: RETURN 

10510 I=A: PRINT: PRINT:PRINT" ## COMMENTAIRES " ! CD* ( I > 

1 0520 PR I NT : PR I NT " ## C ATEGOR I E " ! : RE*=C A* ( I ) : GOSUB 10210 

10600 PRINT: PRINT" ## RAM NECESSAIRE " 5 STR* (TM ( I ) ) ! " K. OCTETS. ": PRINT 

10630 RETURN 

1 0700 TEMP07 : MUS I C " +A3R2+AR+AR+AR " 

10710 RETURN 

10800 GOSUB 10900 

10805 CURSORO, 22: PR INT "POUR CONTINUER : CN3 NOUVEL EFFACEMEN T" 
10810 PRINT" CM! M E N U"! 

10820 GETRE*: IFRE*=" "THEN 10820 
10830 I FRE*= " N " THEN500 
10840 IFRE*="M" THEN 100 
10850 GOSUB 10700: GOTO 10820 

10900 F0RI=2 2T024: CURSORO, ÜP RI NTSPACE* (79) !-■ N EX T: RETURN 

1100Q PRINT"- " 5 TT* (J) ! STRING* < " . " , 32-LEN (TT* (J) ) ) ! "cat , " ! CA* (J) ! " || ";TM(J)!T 

AB (50) ! "K/oct. Il" 

UOSO GETRI*: IFRI*=" "THENRETURN 
11060 GETRI*: IFRI*=" "THEN1 1060 
11070 RETURN 

11100 CURSOR 1,22: PRINT" EJ3 Jeux 
11110 CURSOR 1,23: PR INT" [U J Utilita: 

11120 RETURN 

11200 GOSUB 1 0900 : GOSUB 1 0700 : CURSOR 1,22: PRINT"** 

CN3 NOUVELLE LIST E"! 

11210 CURSOR 1,23: PR INT" 

11220 GETRE*: IFRE*=" " THEN 1 1220 
11230 I FRE*= " N " THEN600 
11240 I FRE*= " M " THEN 100 
1 1 250 GOSUB 1 0700 : GOTO 11220 

11499 REM 

11500 PR I IJlTCHR* ( 6 ) : PR I NT " 
per une touche. " 

11510 6ETR*: IFR*=" "THEN11510 
11515 CT* < 1 > =' 

11519 CT* (2) = 

11523 CT* (3) ="**** ENSEIGNEMENT - SCIEI 
11525 CT$(4)="WMW W«W^ DIVERS 
11590 REVURN 

11599 REM 

11600 PR INT /PCHR* (20) 5 CHR* ( 18) ; TT* < I ) 5 SPACE* < 17-LEN (TT* < I ) ) );CHR*<19) ! CO* < I ) ! S 
ACE* (92-LEN (CO* ( I > > > ; CHR*.( 18) 5 : IFTM (IX 10THENPR INT/P" " ! 

11605 PR INT /PTM < I ) ! " K" 

11610 RETURN 
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MONITEUR IM 


Voici (enfin !) sur 1 800 octets, 
un moniteur puissant et rapide 
qui comblera un manque impor- 
tant dans le MZ 80K. 


Pour entrer cet utilitaire, tapez d'abord, sous 
BASIC 5025, le programme de saisie ci-contre 
puis entrez, sous BASIC les codes HEXA du 
Moniteur en faisant TREEEES I ! ! Attention de 
ne faire aucune erreur. 



Pour exécuter V.MON après la saisie, tapez 
sous BASIC USR (23040) CR. 

Sauvegardez immédiatement votre dur labeur 
en tapant : 

5200SV.MON -CR 

LONGUEUR : 0700 -CR- 

AUTOSTART : 5A00 -CR- 

Les fonctions de V. MON sont au nombre de 9 : 
AAAAL : Affiche sur 23 lignes de 8 octets le 
contenu HEXA de la mémoire à partir de 
l'adresse AAAA (Hexa) 

AAAAV Idem à L, mais ajoute les caractères 
ASCII correspondant aux codes affichés. 
AAAA:CC CC CC... : Permet d'entrer des 
codes Hexa en mémoire à partir de l'adresse 
AAAA. Les codes CC doivent impérativement 
comporter 2 caractères hexa et être séparés 
par un espace. 

AAAAG : Exécute un programme LM à partir 
de l'adresse AAAA. 


/CC CC CC... ENTRE DES CODES Hexa à par- 
tir de l'adresse 4400H et exécute automatique- 
ment un CALL 4400H. 

.CC CC CC... Idem à /CC... mais exécute un 
JP4400H. 

AAAASNOM : Sauvegarde un programme 
ayant pour titre NOM et démarrant à l'adresse 
AAAA. ENTRER ENSUITE LA LONGEUR Hexa 
du programme (Longueur) et son adresse 
d'exécution automatique (Autostart). 

R : Lit le premier programme LM trouvé sur la 
cassette. 

AAAAM : Permet la modification du contenu 
des mémoires à prtir de l'adresse AAAA. Pour 
sortir de ce mode, tapez « BREAK » ou « * » 
puis CR. 

Avec ce moniteur, vous êtes maintenant paré 
pour vous « éclater » en LM sur votre MZ et 
nous envoyer vos dernières créations. 

A, Morette 


l GOSUB 9000 

L 0 I NPUT " ADRESSE < HEXA ;- : " ï AO* 

20 IF RD*="+" THEH GOTO 9050 

30 FOR T=i TO 4 ; F'OKE 4095+T , ASC ( M I O* ( AO* , T , 1 > > : N EXT T 

40 USR a S 1 76 : AD=F'EEK ( 4 1 76 > +PEEK < 4 1 77 > +256 

41 PR I NT "TAPEZ + POUR PRENDRE UNE NÜUUELLE ADRESSE" 

42 IHPUT "CODE:"; A* 

43 IF A*="+" THEN 10 
33 POKE 4096,48 

56 POKE 4097,48 
60 FOR T=1 TO LENCA*> 

30 U*=M 1 D* ( A* , T , 2 > 

30 F*=R I GHT* < U* , 1): IF ( ASC < F* > < 48 > + < ASC < F* > >ASC ( " F " > > 

THEN USR (62) îGQTÛ 9040 
100 POKE 4099, ASC < F*) 

1 1 0 F*=LEFT* ( U* , 1): IF ( ASC C F* > < 48 ) -K ASC < F* > > ASC ( " F " > > 

THEN USR (62> : GOTO 9040 
120 POKE 4098, ASC (F*) 

130 USR C 13176) 

140 POKE AD, PEEK(4176) 

145 AD=AD+1 

150 T=T+2: NEXT T: GOTO 42 
9000 T* 181 76 

9010 READ A: IF A=256 THEN RETURN 

9020 POKE T, A 

9030 T=T+i : GOTO 9010 

9040 PR INT "ERREUR DE SAISIE: "; U*: GOTO 10 
9050 PR INT "SAISIE TERMINEE" 

9060 END 

10000 DATA 17,00,16,205,16,4,34,80,16,201 
63000 DATA 256 
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1 ) Vous désirez recevoir des pro- 

S rammes. Faites-nous parvenir, 
ans ce cas, la somme de 15 Fpar 
programme demandé, ainsi 
qu'une cassette vierge, nous vous 
retournerons vos programmes 
sous 20 jours maximum. OFFRE 
LIMITEE A 3 PROGRAMMES PAR 
ENVOI. 

2) Reportez vous à notre rubrique 
« INFOS » pour connaître les nou- 
velles modalités d'envoi et d'ac- 
quisition de logiciels. 


Pour chaque programme est écrit en premier 
la machine sur laquelle il a été crée, puis les 
différentes machines sur lesquelles il est cer- 
tain de fonctionner tel que. De plus il est men- 
tionné aussi la taille mémoire en Ko pour les 
groupes (par ex 1 260/61 ) comprenant des PC 
identiques hormis pour la Mev. 

A: 1211/12» B: 1245 • C: 1251/55 • D: 
1260/61 • E: 1401/02 • F: 1350 • 6: 2500 

La compatibilité est normalement assurée du 
PC le plus ancien vers le plus récent ( de A vers 
G ) et ceci dans la limite et/ les consitions défi- 
nies dans chaque manuel. A... signifie ABC- 
DEFG par souci de clarté. Pour les compatibi- 
lités non notifiées explicitement, il reste tou- 
jours possible avec un minimum de travail 
d'adapter tout programme quelqu'il soit, de 
toute machine vers une autre. Car tous les 
essais faute de temps n'ont pu être efectués. 
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ADVENTURE 

AP0LL.0 

AWEL.E 

BANQUE 

BEACH HEAD 

BLACK JAL k 

BLACK. J Ai. K 

CHALLENGER 

CHABHE. MARIN 

DUDbt EN 

FLECHE I I EL. 

ÏNVADERS 

LAB YR I NTHE 

MAX 

MISSION S F A i .1 Ai.. 
NAVAL 
OLP HOUS 
PUISSANCE 4 
ROULETTE 
SCRAMBLE 
SCRAMBLE I I I 
SI NUL. «ECO « 

SPACE FRAI N ING 
S T ART MOGURA 
TIR A L'ARC 
WARP FACTOR 


ANA 

BILAN JOUR 
CHRQNO 

CÜNV DEC i-IEX 

DESASSEMBLEUR 

GRAPHIC AID 

i-IEX AS 

I NV I DEO 

MON I TEUR L.M 

PEINTURE 

RENUM 

RENUMBER 

RENUMEROTAT I ON 

SCROLLINGS 

TAROT- 

TENNIS 


cherchez le trésor cache ci s l'une des 64 sali 

j eu. d ' aven t u.re .... » 

version améliorée du pgm du No 11 

achat:, revente d'actions ds un temps imparti 

i I f a u t d e t r u i r e 1 a hase e n n e m i e 

j e u d e c a r t e s c I a s s i q u é" 

b I a c k j a c k e n 2 1 p t s e t 4 ma n c h e s 

pilotez la navette spatiale aux instruments 

r e c h e r c h e z e n ' 3 D u. n s / m a. r i n e t c o u 1 e z - 1 e 

e s s a y e z d e s u r v i v r e s a n s t o '.a c. fier d ' o b s t a c 1 e s 

i 1 f a u t t o u c h e r 3 c i b 1 e s 

abattez au canon les vaisseaux ennemi-s 

essayez de sortir de ce labyrinthe 

jeu des Chiffres et des Lettres 

4 e p r e u v e s p o u i; u n e m i s s i o n spat i al e a r d u e 

bataille navale classique contre le PC 

jeu graphique présente dans le. No 13 

j e u c 1 a s s i q u. e " 5 pion s :■ 7 c o 1 o n n e s 

pariez sur un nbre entre O et 36 

j e u i n t e r g a 1 a c t i q u. e , p 1 us i e u r s t a b 1 e a u x s N o 1 L 

améliorât ion de SCRAMBL.E 

vous et es le president pour 10 ans d ' un pays 
a u x c o m m a n d e s d u v a i s s e a u » d e t r u i s e z le s c i b 1 
jeu 1m graphique et sonore publie dans No 11 
a fléchés a placer ds la cibles No 13 
e x p 1 o v- e z l'es p a c e a b o r d d e v o t r e v a i s s e a u. 

U T I L. I T A I R El S * * ■+• + ■+■ + + * * + * + + h 

pqm d'analyse des pgm s? mémoires avec conv. 
c omp t a b i 1 i t e j o u r n a i i e r e p o u r m e d e c i n 
t r a n s f o r m e v o t r e PC e n c h r o n o s N o 1 4 
c o n v e r s i o n d e c i h e x a e n I....M 
adaptation du pgm paru dans le No S 
per m e t d e des s i n e r a 1 ' e •::: r a n t o u t ïti o t i f 
mini a s s e m b 1 e u r e d i t e u r s u r k 7 u n i q u e m t 
i n v e r s i o n v i d e o t r e s r ap i d e 
moniteur 1m publie dans le No 12 
gestion de fichier 

r e n u m e r o t e u n p g m y c o m p r i s I e s b r a n c h e m e n t s 
r e n u m e r o t e z v o s p g m s e n t i e r e m e n t - N o 10 
r e n um e r o te 1 e s n um e r o s de lignes 
4 routines LM pour 4 types de scrolls 
d e c o mp t e a u t o m a t i q u e d es p t s a u t a r o t 
ar b i t raq e d ' un ma t c h d e t enn i s 
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BAMATH 
C .MASSE 
CALCUL 

CALCULS PRECIS 
CHUTE L I BRE 
CINEMATIQUE 
CLASSE 
C ! IN J ESP 
DECLIN « LATINES 
DERIVATEUR 
DOSAGE 
DYNAMIQUE 
ETUDE FC!" 

FACT 

FONCT 

HP 

I N TE G G 
I N TE G S 

INTEGRA T ION NUM 

MATHS 

MAX FC T 

MCQ R EL 

MOT EX MO 

ONDE 

PERAXO 

PERCE A 

POLY 

FOL Y DI R 

RAC I NE 

REGRESS I ONS 

R EL. A 7 I F 

SOLEIL 

STAT I ST I il! UE S 

SUPERVI 

TENSE 

TRACE DE FONCT . 
TRAJECTOIRE 
X MATRICE 


pour les ex ou futurs bacheliers (maths états 
calcul le centre de masse d'un système 
ensemble de pgms utiles pour les maths 
p e r m e t d ' e f f e c t u e r d e s m u 1 t i p I i c a t i o n s e x a c t e 
p e r m et 1 ' e t u. d e d e I a c h u t e 1 i b r e e n g e n e r a I 
détermine diverses expressions importantes 
divers pgms de gestion d'une classe 
c o n j u q a i s o n d e s v e r b es r e q u 1 i e r s e s p a g n o 1 s 
ap p r e n d r e e t r e v i s e r i e s d e c 1 i n a i s o n s 1 a t i n e s 
cal e ul d e Ta d e r i ve e d ' un e e x p r ess i on 
c a 1 c u 1 d e P H d e s o I u t i o n s a q u e u s e s 
c h o i x m u 1 t i p 1 e s d e c a 1 c u I s d e d y n am i q u e 
e t i..i. d e e t t r a c e d e F ( x ) 

c a .1. c u I d e f a c t o r i e 1 les e n m u I t i p r e c i s i o n 
recherche de fonctions a partir de pts 
simulation d'une HP 

i ri t e g r a le de f i n i e m e t h o d e d e G a uss 
intégrale definie réglé de Simpson 
i ri t e g r a 1 e n u m e r i g u e s m e t h o d e d e G A U S S 
c a 1 c u J. s m a t h e m a t i q u e s d i v e r s 
calcul du maximum ou 0 d'une F ( x ) 

OCM sur les pronoms relatifs anglais 
c a 1 c u 1 n o t e s e x t r e m e s :■ m o y e n n o s - r e p a r t i t i o n 
c a 1 c u ]. d e 1 a 3. o n g u e u r d ' o n d e , c e 1 e r i t e e t c 
o o r d c a r t p 1 a n e s d ' u n e p r o j a x o n o met r i q u e 
coord car t planes d'une pro j perspective 
calcul des valeurs numérique d'un polynôme 
d i v i s i o n d e p o 1 y n o m e s 

r a c i n e c a r r e e c u b i q u e e t d i v e r s c. a 1 c u 3. s 
4 t y p e s d e r e g r e s s i o n s " 1 i n :■ 1 n ? e x p p u i s s a n c e 

e x e .r c i >::: e s u r 1 e s p r o n o m s r e 3. a t i f s e n a n g 1 a i s 
c o mm e n t s e r e p e r e r a u. S o 3. e i 3. 

pour- un nbre illimité de sections avec cumul 
p o ij. r ap p r e n d r e 1 e s v e r b e s i r r e q u i i e r s an q 1 a i s 
test sur l'emploi des temps en anglais 
avec les possibilités graphiques du 1300 
c a 3. c u 3. d e t r a. ,.i e c t o i r e e n p e s a n t e u r u n i f o r m e 
mul t i pl i cat i on de ma. t r i ces carrées (d i m S) 
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ASTRO 

p qui t r e s c o mp 3. e t d ' as t r o n e m i e 
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BALLE 

c a i c u 3. 
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BIORYTHMES i 

c a 1 c u 3. 

et t race de votre biorythme 
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BIORYTHMES 2 

2 pgms 

: c a 1 c u 1 e t g r- ap h i q u e 
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CALENDRIER 

2 petits pgms de calculs de dates 

0 . 7 

Ko 

BCDEFG 

CODAGE 

c o d e r 

ou décoder vos messages 

3 . 0 

Ko 

F G 

COEF BAL. 

c o e f f 

balistique d'une balle de petit calibre 

0.6 

K 0 

A . . . 

F. P MEME'. K i DES 

TLçpl.TCj.j.r' 

:y T: 'es' y; p OST j’TiTb/lTS;.'; Jfe' 

HvUT 

Ko 

0 

POINT 

a i d e p o u r n a v i g a t e u r s d e p .1. a i san c e ■.. c r o i s i e r e 

1 .4 

Ko 

A. . . 

SECT 3 ON 

cal cul 

Tes caract „ geom » de sections composée 

1 .4 

Ko 

A . . . 

THERMO 

e v a 1 1 j. a + i o n t h e r m i q u e 'f ' u n b a T i m e n t 


Ko 

E 

i 1 F F*. F 

per m e t 

d e c r e e r a 3. e a t o i r e m e n t d e s c o m b « 

1 .4 

Ko 

A . . . 


I 

i 


1 

ï 

I 


m 

FMB 


89, route d'Aulnay 93270 SEVRAN 
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POUR RECEVOIR 
NOTRE CATALOGUE 

NOM 



LE SPECIALISTE DU 


. ’ V SM 




BULLETIN D'INSCRIPTION AU CLUB DES SHARPENTIERS 


□ Je m'inscris 

au CLUB DES SHARPENTIERS 

Je bénéficie de tous les 
avantages du CLUB 

Je suis abonné pour 1 AN 
au BULLETIN du CLUB 

Je vous joins mon règlement 

□ FRANCE: 160 F 

□ ETRANGER : 200 F 

CHEQUE N° BANQUE 

DATE SIGNATURE 


NOM PRÉNOM 


ADRESSE 

CODE POSTAL / VILLE 

PAYS 

PROFESSION ÂGE ... . 

MACHINE POSSÉDÉE ... ............. DEPUIS 

ACHETÉE CHEZ 


ÜtiLISATIQN PRINCIPALE DE VOTRE MACHINE 


Club des Sharpentiers 151/153, avenue Jean-Jaurès 93307 AUBERVILLIERS CEDEX Tél : 48 349344 






